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I. INTRODUCTION 


A. BACKGROUND 
According to doctrine, the United States Marine Corps 
(USMC) conducts an amphibious assault in five phases: 
® Planning 
® Embarkation 
® Rehearsal 
@® Movement to the Objective Area 
@® Assault (Ship-to-Shore Movement). 

The vehicles currently used to conduct the ship-to-shore 
movement phase of the amphibious assault are rapidly becoming 
obsolete. There are two reasons for this. First, in the case 
of the aviation vehicles, the primary medium lift assets (CH- 
46 and CH-53A/D helicopters) are well past their originally 
projected service life. Service Life Extension (SLEP) and 
Special Depot Level Maintenance (SDLM) programs somewhat 
extended each aircraft type’s service life, but a tremendous 
maintenance effort is required on a daily basis to keep these 
emererarte flying. 

Second, in the case of the surface vehicles, the recent 
change in amphibious doctrine to the Over-The-Horizon (OTH) 
[Ref. 1] concept envisions launching amphibious assault 


vehicles from distances that were never imagined when the 


the current class of assault amphibians was designed and 
procured. The slow speeds at which these amphibians swim 
ashore render them tactically obsolete in view of the 
increased exposure times that result from the OTH concept. 

In view of this growing obsolescence of the ship-to-shore 
vehicles, replacements must be procured which are able to 
accomplish the ship-to-shore movement as envisioned by the 
current OTH concepts. In an effort to meet these OTH 
requirements, two programs are currently underway to determine 
the replacement vehicles. 

The Medium Lift Replacement (MLR) program has been tasked 
with finding a replacement aircraft for the aging CH-46 and 
CH-53A/D aircraft. Among the alternatives that are being 
studied are the MV-22, CH-60, an improved model of the CH-46 
and the $-92. The aircraft lift capability, fuel endurance and 
cruise speed are among the prime considerations in evaluating 
the alternatives available. The identification and procurement 
of the MLR aircraft is the highest priority item in the Marine 
Corps today [Ref. 2:p. 73]. 

The Advanced Assault Amphibian Vehicle (AAAV) program 
seeks to find a suitable replacement for the current LVTP-7 
family of assault amphibians. The speed at which the vehicle 
transits to shore is the major difference among the models 
currently under consideration. 

The USMC budget for the next several years will dedicate 


a growing share of funds to developing and procuring these 


replacement vehicles. In view of this immense investment it is 
imperative that the vehicles chosen perform the OTH mission in 
the most efficient and effective manner possible. 

A realistic simulation of the ship-to-shore movement would 
allow budget planners to evaluate the performance of the 
different vehicles competing for a share of the constantly 
shrinking defense budget. Such a simulation could be used to 
perform other evaluations as well. For example, a proposed 
landing plan could be run in order to identify potential choke 
points. The same simulation could be used to identify desired 
characteristics of future vehicles, such as fuel loads, cruise 
speeds, and cargo capacities. 

This thesis .documents the construction and use of an 
object-oriented ship-to-shore movement simulation in an effort 


to identify the superior of aircraft for the MLR program. 


B. THE USERS 

This model is an outgrowth of six weeks of research at the 
Requirements, Plans, and Programs (RP&P) Branch, Headquarters, 
United States Marine Corps (HQMC). RP&P is responsible for 
developing the Program Objective Memorandum (POM) which is the 
USMC input to the DoD budget process. 

In addition to identifying the preferred MLR aircraft, 


this model will assist RP&P in the evaluation of proposed 


changes in the equipment and doctrine currently employed in 


the ship-to-shore movement phase of an amphibious assault. 


II. THE AMPHIBIOUS ASSAULT 

The goal of the amphibious assault is the rapid build-up 
of combat power ashore. This model provides a means to 
quantitatively compare the build-up of combat power ashore 
achieved by differing mixes of ships, assault craft and 
aircraft. Assault craft and the aircraft that perform the 
ship-to-shore movement are identical objects in the eyes of 
this model. 

This thesis will examine the aircraft currently under 
consideration by the MLR program. It should be noted that 
these same procedures could be applied to the vehicles under 


consideration by the AAAV program. 


A. SHIP-TO-SHORE MOVEMENT 

The ship-to-shore movement constitutes the fifth phase of 
an amphibious assault. The proper execution of the first four 
phases has little impact on the ship-to-shore phase. As a 
result, the conduct of this simulation disregards the first 
four phases. 

There are several key factors that affect the rate at 
which combat power is built-up ashore during the ship-to-shore 
movement. Ignoring the numbers of amphibious ships, assault 
craft and aircraft available to conduct the ship-to-shore 


movement, the following capabilities must be modeled. 


1. Number of Landing Spots Available 
All of the amphibious ships in use are capable of 
conducting air operations. The number of landing spots 
available for use on each ship will dictate the number and 
type of aircraft that may be employed. Figure 1 shows the 
landing spot configuration for the LHA class of amphibious 


ship. 





Figure 1: Configuration of landing spots for the LHA class 
of amphibious ship. 


On the other hand, the types of aircraft employed, due 
to their size, could limit the number of landing spots 
available. It is apparent that the number of landing spots 
available aboard the amphibious ship has a significant impact 
on the rate at which combat power is built-up ashore. 

The model must account for the proper use of these 


landing spots. Aboard an amphibious ship, different aircraft 


types are restricted to the use of specific landing spots. For 
example, on an LHA the CH-53 can not land on spot one. The 
model must allot aircraft a spot that can be utilized by that 
aircraft. Chapter III contains a more detailed description of 
the allocation and use of these landing spots. 

The amount of time that a particular aircraft type 
spends in a holding pattern along en landing spot 
utilization rates will indicate the need for different 
aircraft mixes or ship designs. 

2. Aircraft Capabilities and Limitations 

The model will be used to compare the rate of build-up 
Beang different aircraft. In order to perform this comparison, 
the key differences in the aircraft must be modeled. These 
Gifferences include, but are not limited to: 

@® Airspeed 

@® Cargo capacity 

® Deck Spot restrictions 

@® Fuel usage and capacity (the "range" of the aircraft). 
3. Ship Movement 

It will be assumed that after the commencement of the 
amphibious assault, the amphibious ships will continue 
movement towards the beach until they reach their preset 
holding points. At these points the ships will maintain 
holding patterns for the duration of the operation. The 


initial starting point, the speed at which a ship presses for 


its holding point and the holding point location will be 
entered by the user. In this way the distance from ship to 
shore may be varied in order to test aircraft capabilities 


under different scenarios. 


B. DESIGN DOCUMENT 

Chapter III serves as a design document, describing in 
detail the amphibious assault and the actions of the model as 
it simulates the ship-to-shore movement. Chapter III is not 
meant as a detailed user’s guide, but rather as an overview of 
model execution. Appendix A contains a complete listing of the 
Cutter model source code. Appendix B lists the minimum 


hardware requirements for using the model. 


III. THE MODEL 

The Cutter model is an object-oriented simulation 
(Ref. 3] developed to analyze the ship-to-shore 
movement phase of the amphibious assault. In the Cutter model 
key players within the ship-to-shore movement evolution are 
created as objects. These objects possess the attributes and 
actions required to model the ship-to-shore phase of the 
amphibious assault. As an example, a CH-46 would be modeled as 
an aircraft object, possessing attributes of airspeed and 
Bede Capaclty, among others. The objects and their attributes 
may then be altered in order to explore the effect of these 
changes on the ship-to-shore movement. 

In this thesis, attributes of aircraft objects are altered 
to reflect those possessed by aircraft under consideration by 
the MLR program. In this way the most effective MLR aircraft 
may be identified. The primary objects of the Cutter model, 
along with their key attributes and actions are described in 


the following sections. 


A. AMPHIBIOUS SHIPS 

The ships which are used to transport the landing force to 
the Amphibious Operations Area (AOA) are referred to as 
amphibious shipping. Examples of amphibious ships are the 


Landing Ship, Tank (LST), Landing Ship, Dock (LSD) and the 


Assault Landing Ship, Helicopter (LHA). Amphibious shipping 
constitutes the ship portion of the ship-to-shore movement. A 
group of amphibious ships steaming towards the AOA is referred 
to as an Amphibious Ready Group (ARG). 

As an object within the Cutter model, the amphibious ship 
is known as an ARGObj (Amphibious Ready Group Object). The 
primary role of the amphibious ship in the ship-to-shore 
movement is to sail from an initial starting location to a 
selected holding area. During the ship-to-shore movement the 
amphibious ship transfers cargo to the embarked aircraft for 
movement to shore. 

The number of landing spots on an amphibious ship has a 
dominant effect on its capability to move personnel and 
equipment from the ship to the shore. Each amphibious ship has 
deck space for one (an LST) to as many as ten (an LHA) landing 
spots. The actual number of landing spots available for use 
aboard a ship will vary depending on the number and type of 
aircraft embarked. If a large number of aircraft are embarked, 
landing spots are required for the storage of those aircraft 
not currently employed. As mentioned in the previous chapter, 
larger aircraft may be restricted to conducting operations on 
certain spots due to a lack of clearance from ship structures 


or other safety considerations. 
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B. THE AIRBOSS 
The Airboss is responsible for allocating landing spots to 
those aircraft preparing for their initial launch and those 
requesting permission to land. Aircraft that request 
permission to land when no landing spots are available are 
sent to a holding queue known as "Starboard delta". The 
Airboss allocates open landing spots using the following 
jerorities: 
® Aircraft awaiting launch 
® Aircraft holding in starboard delta. 
The aircraft holding in starboard delta are prioritized 
based on the amount of fuel remaining aboard the aircraft. 
Each of the amphibious ships has its own Airboss and 
Starboard delta queue. In addition to controlling flow in to 
and out of his starboard delta queue, the Airboss ensures that 
aircraft only operate from those landing spots that have no 
Size or safety restrictions for that type of aircraft. 
Within the Cutter model, the Airboss is created as a 


SpotManObj (Spot Manager Object). 


C. SERIALS 

A serial is a set of passengers and/or cargo scheduled for 
movement ashore aboard a single aircraft. Each of the serials 
is assigned a source (amphibious ship), a destination (Landing 
Zone), a priority, and a mode of transportation. The priority 


of the serial determines the order in which the serials are 
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transported ashore. The lower the priority of the serial, the 
sooner it is scheduled to be sent aehore 

The mode of transportation, either as internal cargo or 
Cargo to be carried externally, determines the airspeed of the 
aircraft which transports the serial ashore. Depending on the 
cargo to be moved externally, the airspeed of the aircraft 
could be reduced by as much as 60% of that which the aircraft 
would normally fly. 

The weight of the serial will drive the decision as to 
which type of helicopter transports it to shore. In practice, 
passengers and lightweight cargo are usually broken into 
serials sized to fit onboard the smallest transport aircraft 
embarked. Larger transport aircraft combine two serials in 
order to exploit their payload advantage over the smaller 
transports. Some serials, due to their weight or size, require 
larger transports for movement ashore. 

In the Cutter model, a serial to be moved ashore is 


created as a SerialObj. 


D. HELICOPTER DIRECTION CENTER 

The Helicopter Direction Center (HDC) maintains a 
prioritized list of all serials to be moved ashore. This 
serial list is used to direct the flow of aircraft between the 
amphibious ships and the landing zones. 

As an aircraft departs the landing zone, it checks in with 


HDC to determine the location of the next serial to be moved. 
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In the case of larger transport aircraft, HDC combines two 
serials whenever possible to fully utilize these larger 
aircraft. 

There is only one HDC within the ARG. As an object in the 
Cutter model, the Helicopter Direction Center is known as an 


HDCObj. 


E. LANDING ZONES 

The Landing Zone (LZ), modeled as an ULZBeachObj, 
represents the shore portion of the ship-to-shore movement. 
The LZ is the destination for the serials loaded aboard the 
transport aircraft. The only attributes that an LZ possess are 
location and a preset number of landing spots. The landing 
spots in the LZ are identical in nature to those aboard the 
amphibious ships. 

Each of the landing zones contain a Forward Air Controller 
(FAC) who performs the same function for the LZ that the 
Airboss performs for the amphibious ship. The FAC, also 
modeled as a SpotManObj, operates in the same manner as the 
Airboss with one exception. Since all aircraft Start the 
Simulation from the amphibious ships, the FAC does not have to 
contend with aircraft preparing for their initial launch. 
Therefore, the FAC allocates open landing spots solely to 


aircraft within his starboard delta queue. 


re 


F. AIRCRAFT 
There are two types of aircraft utilized in the amphibious 
assault; transport aircraft and attack aircraft. The transport 
aircraft are used to move the serials from the amphibious 
ships to the landing zones. Attack aircraft provide covering 
fire for the transports as they perform their assigned tasks. 
Fach of these aircraft and their roles in the amphibious 
assault will be described in separate sections. 
1. Transport Aircraft 
Transport aircraft are the vehicles which move the 
serials from the amphibious ships to the landing zones. 
Created as a TransObj within the Cutter model, the transport 
aircraft are the focus of this thesis. There are many actions 
that transport aircraft perform in the execution of §tmem 
mission. These actions and some simplifying assumptions are 
described in the following sections. 
a. Initial Launch 
The transport aircraft are embarked aboard 
amphibious ships for movement to the AOA. At a pre-determined 
launch time, the aircraft obtains a landing spot from the 
Airboss in order to commence flight operations. Once the 
landing spot is obtained, the aircraft 1s positioned on the 
spot, loaded and launched. 
The amount of time that an aircraft requires to 


load is determined by the serial that is assigned to the 
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aircraft. Serials that consist entirely of passengers or that 
are carried externally usually require the least amount of 
time to load. Serials that consist entirely of internally 
Carried cargo require the greatest amount of time to load. The 
Cutter model looks at the contents of the serial assigned to 
the aircraft to determine the appropriate loading time. 
b. Transit to Shore 

An aircraft must meet certain criteria prior to 
departing the amphibious ship. In the Cutter model, the 
aircraft ensures that there is enough fuel aboard for a round 
trip from the ship to the shore, plus a pre-determined 
reserve. If there is not enough fuel aboard the aircraft, the 
aircraft is refueled aboard the amphibious ship from which it 
is departing. In the Cutter model there are no refueling 
facilities ashore; aircraft are required to refuel aboard one 
of the amphibious ships. It is assumed that the refueling 
system aboard every amphibious ship is functional. 

in addtertonmromenecking for sufficient fuel, the 
aircraft checks that the pilots have sufficient crew day for 
the round trip. While crew day is an administrative safety 
limitation placed on the aircrew, it could have a very 
negative effect on the ship-to-shore movement. If an aircrew 
does not have sufficient crew day to complete the round trip, 
the aircraft returns to its mother ship and commences the 


shut-down procedures. 
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The speed at which the aircraft transits to the 
shore is determined by several factors. The loaded cruise 
speed of the aircraft is the maximum speed at which the loaded 
aircraft would normally transit. If the aircraft is assigned 
a serial to be carried externally, the transit speed is 
reduced considerably. 

c. Arrival at the LZ 

Upon arrival at the destination LZ, the aircraft 
requests a landing spot from the FAC. If there are no landing 
spots available, the FAC will place the aircraft in his 
Starboard delta queue. The aircraft will hold in this queue 
until cleared for landing by the FAC. 

The time it takes to unload the aircraft is 
determined in the same manner as the loading time. Those 
serials composed entirely of passengers and those that are 
Carried externally are the fastest to unload, with serials 
consisting of internal cargo being the slowest. 

At the completion of the unloading evolution, the 
aircraft departs the LZ and transits to the amphibious ships. 

d. Transit to Amphibious Shipping 

As an aircraft departs the LZ, it will check in 
with HDC in order to determine the pick-up location of the 
next serial. The aircraft then transits to the pick-up 


location at its normal empty cruise speed. 
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As the aircraft approaches the pick-up ship, it 
calls that ships Airboss. The Airboss will either clear the 
aircraft to land if a landing spot is available, or direct the 
aircraft to enter the starboard delta queue. Upon landing on 
the amphibious ship, the load, transit to shore, unload, 
transit to amphibious shipping cycle is repeated until the 
aircraft is directed by HDC to shut-down. 

e. Shut-down 

Aircraft will repeat the cycle described above 
until directed by HDC to shut-down. In the Cutter model there 
are two reasons that HDC would direct an aircraft to shut- 
down. The first would be if the aircrew should exceed crew day 
limitations. Secondly, an aircraft would be directed to shut- 
down if there were no additional serials requiring movement to 
shore. 

When directed to shut-down, the aircraft proceeds 
to the ship which transported it to the AOA. Upon arrival at 
the ship, the aircraft requests a landing spot from the 
Airboss and proceeds as directed. When all of the aircraft 
have returned to their mother ship and shut-down, the 
Simulation is terminated. 

f. Fuel Usage 

One of the attributes that determines’ the 

effectiveness of an aircraft in the ship-to-shore arena is the 


range of that aircraft. The range of the aircraft is a 
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combination of the amount of fuel an aircraft carries, and the 
rate at which the aircraft consumes that fuel (the fuel-flow). 
The model uses three fuel-flow rates; one when the aircraft is 
airborne loaded with cargo, one when the aircraft is airborne 
with no cargo, and one for ground operations. There are three 
periods during which an aircraft consumes fuel: 

® In transit 

® Holding in a starboard delta queue 

® While loading and unloading cargo. 

The Cutter model computes the amount of fuel 
consumed whenever an aircraft reaches an LZ or an amphibious 
ship. For example, an aircraft may load, transit to shore, 
hold® 17 aupenass delta awaiting an LZ landing spot and 
finally land. At this time, Cutter will compute the amount of 
fuel consumed based on the loading time, transit time and the 
amount of time spent holding. The fuel consumed is then 
subtracted from the amount of fuel currently aboard the 
aL Cerae t . 

2. Attack Aircraft 
Attack aircraft are similar to transport aircraft, 
both possessing the same attributes and actions. In the Cutter 
model, an attack aircraft is modeled as an AttackObj which 
inherits [Ref. 3] the attributes and actions from the 
transport aircraft. There is one primary difference between an 


attack aircraft and a transport aircraft. 
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UtGtteewmthe — tbanlsports, attack aircraft are not 
required to interact with the landing zones. An attack 
aircraft is assumed to fly for a given period of time and then 
return to the amphibious ship. The attack aircraft competes 
for ship landing spots, refuels, and shuts down in the same 


manner as the transport aircraft. 


G. MODEL EXECUTION 
There are several phases to the execution of the ship-to- 
shore movement simulation. A brief description of the methods 
that the Cutter model uses to complete these phases is 
Meesented in the following sections. 
L.. Lnput 
The information required to create the desired 
scenario is input through the use of six data files. Each of 
the data files contains a description of each piece of 
required data, as well as an example of data used for this 
thesis. The FileForm.mod file consolidates this information 
for all of the input files. Appendix C contains a description 
and examples of the required input files. 
2. Scenario Initialization 
The Cutter model contains several procedures which 
create the desired scenario. At the completion of this phase 
all of the amphibious ships, their embarked aircraft, landing 


zones and serials have been created. 
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3. Replication 
The simulation is replicated the requested number of 
times, resetting all of the starting values at the end of each 
replication. At the end of the final replication, all of the 
objects are disposed of, required statistics are computed, and 
the final output is created. 
4. Output 
The model creates several output files for each 
scenario. The user inputs the desired name, limited to five 
characters, of these output files using the OPplan.dat data 
file (described in Appendix C). Appendix D contains a 


description and examples of the output files. 
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IV. ANALYTICAL PROCEDURES 


A. BACKGROUND 

The Cutter model uses recursively generated random number 
streams to control the passage of time throughout its 
operation. As a result, the output from the model is a random 
process, with the parameters of the parent distribution 
unknown. In order to compare the results of two different 
aircraft mixes run under the same scenario, a means of 
comparing the unknown parent distributions must be found which 
identifies the superior distribution. The random variable 
which measures the build-up of combat power ashore will be 
examined in order to identify the superior mix of aircraft. 

This build-up of combat power ashore may be thought of as 
a pure birth process, as there are no departures from the 
system Pre ba : p22 5 1) In the ship-to-shore 
movement, the rate at which the mix of aircraft (the 
population) delivers the serials ashore (births) may be 
approximated. The population of serials ashore at any time t, 
as a function of the combat power possessed by each serial, 


may be written as 
OME) Ely, JG (1) 


where X(t) is the amount of combat power ashore at time ¢t (t 


ranging from time 0 to T, the time that the last serial 
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arrived ashore). The amount of combat power ashore is measured 
as the percentage of total combat power to be moved ashore. 
For purposes of this thesis, these functions will be referred 
to as Combat Power Ashore functions. 

In order to compare the distributions from two different 
random processes, it is typical to compare the measures of 
location and spread from the two parent distributions. 
Calculating interval and point estimators of a distribution’s 
location and spread, using multiple runs of the simulation, 
requires several Sino ae y 2 ae assumptions 
[Ree 5 peeeewcle 

® independence between replications 
® normality of the output distribution 
® constant variance. 

It is felt that while these assumptions may serve to 
Simplify the comparison of two distributions which occur 
naturally, they may not be appropriate when dealing with the 
output from a computer Simulation. 

Additionally, these methods are usually applied to "end" 
measures such as the completion time of a task or the amount 
of time spent in a queue. In the case of the build-up of 
combat power ashore, the rate of build-up is more important 
than the actual completion time. The methods commonly employed 
to analyze simulation output are unable to capture a measure 


of this rate. 


Ze 


B. THE COMBAT POWER ASHORE FUNCTION 

Output from the Cutter model may be used to obtain 
estimates of the Combat Power Ashore (CPA) function for each 
aircraft mix. The CPA function for a specific aircraft defines 
the percentage of combat power ashore at every time t, using 
that aircraft. In this thesis it is desired to compare the CPA 
functions for each aircraft in order to identify the preferred 
replacement aircraft for the MLR program. 

The CPA function presents two vital pieces of information 
-concerning combat power ashore. First, the CPA function shows 
the amount of combat power ashore (X(t)) at every time t. 
Second, the amount of time that the combat power has been 
ashore is shown.as the difference between the time that a 
serial arrives and the time t of interest. Clearly, the 
greater the time a serial is ashore the greater its worth to 
the Commander of the Landing Force (CLF). 

Since the goal of the ship-to-shore movement is the rapid 
build-up of combat power ashore, the ideal CPA function is 
easily visualized. This ideal CPA function delivers all combat 
power ashore at time 0. In Figure 2a, it is clear that under 
the ideal CPA function, all combat power is available to the 
CLF at every time t. It is also clear that this CPA function 
will never be observed in practice. 

Figure 2b presents a more probable CPA function. In this 
CPA function all serials are considered to possess equal 


combat power. The first serial arrives ashore at time ti, the 
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second serial arrives at time t2 and so forth for all Serials. 
Each of the serials is represented by a rectangle, with the 
height (h) equal to the combat power of the serial and the 


length (1) equal to the amount of time the serial is ashore. 
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Figure 2 (a) The ideal CPA function. (b) A simplistic CPA 
LUC Eom. 


For any time t, the first serial is available for a length 


of time equal to t - t1, the second serial is available fora 
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Mmme Of G = £2, and so on for each serial. The area of each 
rectangle (combat power * time ashore) represents the worth of 
MEeeserial to the CLE at any time t. The sum of the area 
within all rectangles (and thus the area under the CPA curve) 
presents a measure of the combat power available to the CLF, 
at any time tc. 

In order to choose one CPA function over another, the area 
under each function must be compared. Furthermore, the method 
chosen must account for the area under the function for every 


time t. 


C. COMPARING CPA FUNCTIONS 

In this thesis, CPA functions produced by different 
aircraft are peneered in a pairwise manner to identify the 
preferred aircraft for the MLR program. The goal of each 
pairwise comparison is to identify that CPA function which 
provides the CLF with the most rapid build-up of combat power 
ashore. 

There are three cases that occur when comparing CPA 
functions. Each of these, along with examples, is discussed in 
the following sections. 

1. Case l 

Suppose that the amount of combat power ashore at time 
t, uSing aircraft X, is defined by the CPA function X(t). 
Further suppose that the amount ashore uSing aircraft Y is 


g@etimead by the CPA function Y(t). If the value of X(t) is 
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greater than the value of Y(t) for every t, then aircraft X is 
obviously preferred over aircraft Y. This may be written as 
Mee) re are) (VES ERS LORE a= (2) 
If the conditions of Equation (2) hold, then the area 
under X(t) will exceed that under Y(t) for all time et. 
Therefore, the CPA function X(t) provides a greater amount of 
combat power to the CLF than CPA function Y(t) at every time 
Ex 
Figure 3 contains a comparison of the CPA functions 
produced by two different aircraft. In this case X(t) is 
greater then Y(t) for every time t. Under the CPA function 
X(t) the CLF has more combat power available, at every time t, 
then would be available under the CPA function Y(t). Under the 
first case, the CLF clearly prefers that CPA function which 
has more combat power ashore at every time t. 
2. Case 2 
As shown in Figure 4, when two CPA functions are 
compared, it is likely that the conditions in Equation (2) 
will not hold for all time t. In this case, a different 
criteria is used in order to choose one CPA function over 
another. 
For any time t, the longer a given serial is ashore, 
the greater utility (combat power * time ashore) that serial 
has to the CLF. As mentioned earlier, at any time t, the area 


under the CPA function presents a measure of the combat power 
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Figure 3 Case 1. The value of CPA function X(t) is greater 
Boam that Of CPA function Y(t) for every t. The aircraft 
which produced the CPA function X(t) is preferred. 


available to the CLF. If the area under X(t) is greater than 
the area under Y(t) for all t, then X(t) is preferred over 


Y(t). In this case 


e 
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Equation (3) implies that CPA function X(t) offers a 
greater utility (in terms of combat power) to the CLF then 
the CPA functionyy (2)) eer evem ae. 

In the ship-to-shore environment, it is always 
preferable to have more combat power ashore now, than to have 
a promise of more later. Figure 4 shows a case where Equation 
(2) fails to hold, but where the conditions of Equation (3) 
are met. In this case CPA function X(t) is preferred over CPA 
function Y(t). Note, at some time t, the total amount of 
combat power ashore for Y(t) could exceed that of X(t) (as 
shown at time 70) with X(t) being the preferred CPA function. 

3. Case 3 

During the conduct of some pairwise comparisons, it 
may not be possible to pick one CPA function over another. 
Figure 5 shows an example where two CPA functions cross each 
other several times. In this case, neither Equation (2) nor 
Equation (3) holds at every time t. Therefore, it is not 
possible to pick one CPA function over the other. In this 
case, it will be assumed that the two CPA functions are equal, 
and that neither one is preferred over the other. 

4. Dominance 

When two CPA functions are compared, the dominant 
function is that which provides the most rapid build-up of 
combat power ashore. Throughout the rest of this thesis, 


during a pairwise comparison, the preferred CPA function will 
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Figure 4 Case 2. The area under the CPA function X(t)is 
greater than the area under the CPA function Y(t) at every 
t. X(t) is the preferred CPA function X(t). 


be referred to as the dominant of the two CPA functions. In 
Seeder £Or CPA function X(t) to dominate the function Y(t), one 
of the following conditions must be met: | 
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Figure 5 Neither function, X(t) nor Y(t), dominateawien— 
other. 


If neither CPA function dominates the other, it will 
be assumed that either CPA function is acceptable to the CLF. 
5. Assumptions 
In order for the criteria outlined above to be applied 
in the comparison of two CPA functions, two assumptions must 


be accepted. 
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a. Diminishing Marginal Returns 

The total utility of a serial to the CLF is a 
product of the combat power and the time ashore of the serial. 
As a result, two serials may contain the same amount of combat 
power, yet be of different value to the CLF due to their 
respective time ashore. 

For example, consider two howitzers, A and B. 
Initially, both howitzers possess the same combat power. 
However, if A arrives ashore 30 minutes prior to B, then A has 
a greater utility to the CLF then B, due to the longer time 
spent ashore by howitzer A. Therefore, a serials worth to the 
CLF diminishes the longer it takes to deliver that serial 
ashore. 

b. Cutter Output 

Realizing that Cutter output is itself a random 
process, it is assumed that the output from each replication 
of the simulation is representative of the CPA function for 
the particular aircraft used. Under this assumption, the 
estimate of the CPA function resulting from the first 
replication of Aircraft X may be compared to the estimate of 
the CPA function resulting from the first replication of 
Peaeritiaey, and so on for multiple replications of the 


eamirlation for each aircraft. 
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D. ANALYSIS PROGRAM 
The Analysis program is used to compare CPA functions from 
each aircraft in the different Cutter scenarios. In order to 
estimate the CPA functions, the Cutter model completes one 
hundred replications for each aircraft. In order to compare 
two aircraft, the one hundred CPA function estimates for each 
aircraft are compared using the Analysis program. The 
following sections describe the required input and general 
workings of the Analysis program. 
1. Input 
The Analysis program takes as input the Cutter output 
file <filename>LZ.out (described in Appendix D) from each of 
the two aircraft to be compared. The Analysis.dat file is used 
to input the number of comparisons to perform, the names of 
the two data files to compare, and the desired name for the 
Analysis output file. 
2. Data Preparation 
The contents of each of the <filename>LZ.out files is 
manipulated to create two data arrays for each aircraft. These 
arrays contain the data required for the Analysis program to 
perform the required calculations. The following sections list 
these arrays, along with a short description of their use. 
a. Timex Array 
The Timex Array contains the integers from 1 to the 


time T that the last serial arrives ashore within the ecurcere 
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Simulation run. This array provides the t axis values for the 
SPA function. 

b. Yvalue Array 

The Yvalue Array contains the total combat power 
ashore at the corresponding time in the Timex array. This 
array provides the Y axis values for the CPA function. 
3. Case 1 Comparison 

The comparison procedure for the first case takes the 
Yvalue array for each data set, comparing the values for each 
time t. If the elements of the Yvalue array for Aircraft X are 
greater than or equal to the elements of the Yvalue array for 
Aircraft Y, at every time t (Eq. 2), then the CPA function for 
Aircraft X dominates the CPA function for Aircraft Y. In this 
example the use of Aircraft X is preferred over the use of 
Peereraft Y. 

4. Case 2 Comparison 

Tf the conditions in Equation (2) do not hold, a Case 
2 comparison is performed in an effort to identify the 
dominant CPA function. The comparison procedure for the second 
Case computes the area under each CPA function for every time 
t. If the area under X(t) is larger than the area under Y(t) 
at every time t, then X(t) dominates Y(t). 

Tf neither comparison is able to choose a dominant CPA 
function, then Case 3 applies, and neither CPA function 


dominates the other. 
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E. CONTINGENCY TEST 

The results of the Analysis program are used to perform a 
contingency test. The null hypothesis, that the CPA function 
for Aircraft X is the same as the CPA function for Aircraft Y 
(in a given scenario), is tested against the alternative 
hypothesis that the two CPA functions are different. This 


hypothesis test may be written as 
Hi iGe eae) VSeeete>: Xba ee) (4) 


The results of the CPA function comparisons for any two 


aircraft are arranged as shown in Table I. 


Table I.-- CONTINGENCY TABLE FORMAT 


Acft_X actt_¥ 


(cell 1) cet 2) | (cell 3) 





In Table I, the value entered into cell 1 refers to the 
number of times that Aircraft X dominates Aircraft Y. The 
value entered into cell 3 represents the number of times that 
Aircraft Y dominates Aircraft xX. The value in cell 2 
represents the number of times that neither aircraft dominates 
Che other. 

The contingency test computes the following value for each 


of the cells in Table I: 
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(observed value ~- expected value)* (5) 
expected value . 


As mentioned earlier, the output from the simulation isa 
random variable. As such, an estimate of the expected values 
for each cell of Table I must be found. Suppose that ais the 
observed value for cell 1, that b is the observed value for 
cell 2 and that c is the observed value for cell 3. It can be 
shown that the Maximum Likelihood Estimator (MLE) for the 
expected values, given that H, (Eq. 4) is true, are as 
follows: 
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(a+c)/2 for cells 1 and 3 
®6 = b for cell 2. 
The value of Equation (5) for each cell in Table I are 
calculated and summed. This final sum is then compared to the 


Chi-Square distribution with one degree of freedom (X,) to 


test the null hypothesis H,. 
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V. SIMULATION ANALYSIS 


A. MODEL VERIFICATION 

The Cutter model has been verified to work while running 
a number of simple test scenarios. The output from these test 
scenarios has been examined and is believed to be correct. The 
model has not been validated, as this would require comparing 
its results to the results obtained from actual ship-to-shore 
exercises. Since it has not been validated, these results 
should only be viewed relative to each other, and not as 
absolute numbers. Future users are encouraged to review the 
input required and conduct trials to confirm the proper input 


DparaMmecenrs. 


B. TEST SCENARIOS 
A brief description of each scenario and the different 
aircraft capabilities and limitations appear in the following 
sections. Appendix C contains the input data for each scenario 
and aircraft used. 
1. Scenarios 
Fach of the three scenarios consisted of 3 ships (an 
LHA, LPD, and LST) and 2 landing zones. The landing zone 
locations were fixed for each scenario, while the ship-to- 
shore distance varied from scenario to scenario. In the first 


scenario the ships were 5 miles from shore, in the second 
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Scenario the ships were 25 miles from shore, while the third 
scenario had the ships 50 miles from shore. While the Cutter 
model has the ability to model ship movement this feature was 
not used in the test scenarios. 

There are a total of 419 passengers and 97,000 pounds 
of cargo to be transported ashore under each scenario. The 
serial lists for each of the aircraft mixes were arranged in 
order to fully exploit the cargo capacity of the aircraft. For 
example, a Serial for the MV-22 contains a maximum of twenty 
passengers while a serial for the CH-60 contains a maximum of 
Bene AS a result, the aircraft mix containing MV-22 aircraft 
had a total of 39 serials to move ashore while the CH-60 mix 
required that 56 serials be transported ashore. 

2. Aircraft 

There are seven different aircraft used in the test 
scenarios. Six of these aircraft are under consideration by 
the MLR program. The seventh aircraft, the CH-53E, is included 
for reasons to be discussed in a later section. The input 
parameters for each of the aircraft were obtained from the 
Naval Air Systems Command. The sections below will provide a 
brief description of the aircraft involved, with emphasis on 
the more important capabilities and limitations of each. 

a. CH-46 

This is the current medium lift aircraft and is 


used as a baseline for aircraft comparisons. 
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b. CH-60 
The CH-60 has the smallest payload, equivalent to 
ten passengers. This aircraft does possess an airspeed and 
range advantage over the CH-46 aircraft. 
Cun 2-22 
At this time, the data for the’S-92 45 proprice-ms, 
and is therefore omitted from the body of this thesis. This 
aircraft does possess greater cargo capacity, range and 
airspeed then the CH-46. 
d. CH-53E 
This is a much larger aircraft then the CH-46, S-92 
and CH-60. The CH-53E will carry more then twice as much as 
the CH-46 with an airspeed of 150 kts and a much greater 
range. However, due to its size, the CH-53E operates from six 
deck spots aboard the LHA, whereas the CH-46, S-92 and CH-60 
aircraft have eight deck spots from which to operate. 
e. MV-22 
This is a tilt-rotor aircraft, able to operate in 
either the helicopter or fixed-wing mode. The fixed-wing 
cruise speed (approximately 250 kts) and the helicopter cruise 
speed (180 kts) give this aircraft a tremendous advantage over 
the other five candidates. The MV-22 payload is somewhat 
larger then the CH-46, but considerably less then the CH-53E. 
This is a large aircraft, and therefore has the same LHA deck 


spot limitation as the CH-53E. 
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f. CH-47D 
The internal cargo capacity of this aircraft is 
identical to that of the CH-53E. While the airspeed of the CH- 
47 is comparable to that of the CH-53E, the range is 
significantly less. Due to its large size, the CH-47 is 
limited to six operating spots aboard the LHA. 

g. EH-101 

This aircraft has the same cargo capacity as the 
MV-22, but possesses average airspeed and range when compared 
to the other aircraft. 

The aircraft listed were arranged into the following 
mixes and run under each scenario: 

@® 12 CH-46 and 4 CH-53E (Mix 1) 

@® 12 CH-60 and 4 CH-53E (Mix 2) 

@® 12 EH-101 and 4 CH-53E (Mix 3) 
@® 12 MV-22 and 4 CH-53E (Mix 4) 

@® 12 CH-47D (Mix 5) 

@ 12 S-92 and 4 CH-53E (Mix 6). 

Note that five of the aircraft mixes include the CH- 
53E aircraft. The real world ship-to-shore movement includes 
several serials which require heavy lift assets to move 
ashore. The CH-47D is capable of lifting all loads that 
require external transportation to shore, therefore the CH-53E 


memmot included in the fifth mix, 


Bo 


C. SCENARIO RESULTS 

In the following sections the results from each scenario 
are discussed, stressing the ability of the model to evaluate 
the interactions of the various input parameters. Note that 
when, for example, reference is made to the "MV-22", this 
refers to the 12 MV-22/4 CH-53E mix of aircraft, and not 
solely to the MV-22 aircraft. 

1. Scenario 1 

As shown in Table II, the CH-47D clearly dominateaaams) 
aircraft in the first scenario. The CH-47D is able to overcome 
the landing spot restrictions aboard the LHA through its 
superior cargo capacity. 

The MV-22 and the EH-101 were equally effective, a 
result that is interesting. While the two aircraft possess the 
same cargo capacity, there are two major differences in the 
capabilities of the aircraft. The MV-22, with a speed of 180 
kts, has a 40 knot advantage over the EH-101.' On the other 
hand, the EH-101 has the use of eight landing spots aboard the 
LHA while the MV-22 is restricted to six spots. 

As expected, the S-92, possessing average range and 


cargo capacities, fell in the middle of the six mixes. This 


' The MV-22 was limited to 180 kts for this scenario. The 
short ship-to-shore distance of the scenario would prevent the 
aircraft from completing transition to the fixed-wing mode. 
The 180 kts is the maximum airspeed for the aircraft in the 
helicopter mode. 
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aircraft 1s significantly more effective than the baseline CH- 
46 mix. 

The CH-60 is totally inadequate. The restricted cargo 
capacity of the aircraft allows it to be dominated by all 


earcraft mixes. 


Table II.-- AIRCRAFT COMPARISONS FOR SCENARIO 1 


[pominates [sa | o | o [a+ | o|s0 | o]7 |o [40 
eee, | 


SS ee eee 
[Does Not_| 27 | so | 3 | 26 | a0 



















[Dominates | o | 55 [25 | 1 | o | 62 [24] 1 [60 | 0 
[does Not | 45 | 74 | 3a | es | 


Note: Mix (1) ... CH-46 Mix (499... MV-22 
Mix (2) ... CH-60 Me Se cee CH - 47 
Mast 3)... BH=LOL Mix (6) ... S-92 


2. Scenario 2 
As shown in Table III, the CH-47 dominance over the 
MV-22, while still significant (p-value = .0082), is 
dramatically reduced in Scenario 2. The MV-22 top speed of 250 


knots, combined with the ship-to-shore distance of 25 miles is 
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able to offset much of the cargo capacity advantage of the CH- 
47. 

At 25 miles, the EH-101 is no longer as effective as 
the MV-22. The increased airspeed of the MV-22 is fully able 
to offset the two additional operating spots from which the 
EH-101 is able to operate. 

Once again, the S-92 is the third most effective 
aircraft. The CH-60 is still dominated by the CH-46, in spite 


of the range and airspeed advantages of the CH-60. 


Table III.-- AIRCRAFT COMPARISONS FOR SCENARIO 2 


[pominates [61 | 0 | 0] | o] se| ol o7| 0 [se 
coe vor | 3 | 2 | a 


[pominates | o |94 | o Jes | o |97 | o |e7 | o |34_ 
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Note: Mix (1) ... CH-46 Mix (4) ... MV-22 
Mix (2) ... CH-60 Mix (5) ... CH-47 
Mix (3) ... EH-101 Mix (6) ... S-92 


3. Seenario 3 
In the third and final scenario, there is no 


difference between the MV-22 and the CH-47 aircraft. The fifty 
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mile ship-to-shore distance allows the MV-22 airspeed 
advantage to fully compensate for the cargo capacity of the 
CH-47. 

The EH-101 continues to dominate the other three 
aircraft. It is interesting that the dominance of the EH-101 
over the CH-46 and the CH-60 decreased between Scenarios 1 and 
2, but then increased between Scenarios 2 and 3. This dip can 
be explained by examining the range of the aircraft involved. 

In Scenario 1 the CH-60 and CH-46 require refueling in 
order to complete the evolution. The EH-101, due to its range 
advantage, is able to complete the first scenario without 
conducting refueling operations. The ship-to-shore distance in 
Scenario 2 is — that the EH-101 requires a greater increase 
in the number of refueling operations from Scenario 1 then the 
increase in refueling operations for the CH-46 and CH-60 
aircraft. Therefore, the build-up of combat power with EH-101 
decreases at a greater amount then the build-up using CH-46 or 
CH-60 aircraft. 

In Scenario 3 the opposite occurred. Due to the 
greater range of the EH-101, the CH-60 and CH-46 required more 
additional refueling operations from Scenario 2 to complete 
the third scenario then the EH-101 required. These additional 
refueling operations slow down the rate at which the CH-60 and 
CH-46 build-up combat power ashore. 

The S-92 showed the same dominance pattern, to a 


lesser degree, between scenarios as did the EH-101. The S-92 
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is still the dominate aircraft when compared with the CH-46 
and CH-60 aircraft. 

The CH-60 is almost completely dominated by every 
aircraft in the study. This would stress the importance of the 
aircraft cargo capacity. It takes a major airspeed and/or 
range advantage to compensate for a very limited cargo 
capacity. Table IV contains the complete results for the third 


scenario. 


Table IV.-- AIRCRAFT COMPARISONS FOR SCENARIO 3 


[Dominates |70 | o |o [72 | 0 [63 | o fea | o |55_ 
[does Not | 30 | 29) | 37] tt 
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Note: Mix (1) ... CH-46 Mix (4) ... MV-22 
Mix (2) ... CH-60 Mix (5) ... CH-47 
Mix (3) ... EH-101 Mix (6) ... S-92 





4. Summary of Test Results 
The results from the three scenarios confirm the 


obvious. The aircraft with the largest payload will most 


44 


likely be the most effective in terms of the rapid build-up of 
combat power ashore. 

The analysis above also demonstrates the ability of 
the Cutter model to quantify the capability trade-offs among 
different aircraft. While one aircraft may possess a speed 
advantage and another a larger cargo capacity, both aircraft 
may be equally effective. In this case, the MV-22, with the 
110 knot airspeed advantage proved as effective as the CH-47, 
with a 10 passenger capacity advantage, given a certain ship- 
to-shore distance. 

Another trade-off comparison exists between the CH-46 
and the CH-60. The CH-60 has a significantly longer range and 
a slightly greater airspeed then the CH-46. The CH-46, on the 
other hand, is able to carry five more passengers than the CH- 
60. It was shown that this trade-off between the two aircraft 
allowed the CH-46 to dominate the CH-60 under all three 
scenarios. 

The ability to quantify these capability trade-offs 
proves that the Cutter model is a valuable tool when used to 


analyze the ship-to-shore movement. 
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APPENDIX A CUTTER MODEL SOURCE CODE 


MAIN MODULE Cutter; 


— — mo ii i ii i i iii esi i i eee ell ell eel el a 


MODULE NAME: Cutter DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 

Capt USMC 
DESCRIPTION : Ship-To-Shore movement analysis model. 


Simulates the build up of combat power ashore. The user is 
able to change the scenario, to include the ship/LZ locations, 
as well as the number and type of aircraft employed. 


FROM Debug IMPORT TraceStream; 

FROM DebugRun IMPORT SetUpD; 

FROM SimMod IMPORT StartSimulation, ResetSimTime, SimTime; 
FROM CATFMod IMPORT CATFOb]j; 

FROM Input IMPORT ReadEmA11; 

FROM global IMPORT NewRandoms, repetition, showerrors; 
FROM Statistics IMPORT StatisticsObj, lastdeliverytime; 
FROM OutputDriver IMPORT OpenFiles, CloseFiles, 


EndTimerecorder; 

VAR 
CATF eV CATEOD a 
Statistician : StatisticsObj; 
totalruns >: INTEGER; 

BEGIN 


OUTPUT ("Enter Number of Runs to Complete"); 
INPUT (totalruns) ; 

SetUpD (TRUE) ; 

Showerrors := FALSE; 


ReadEmA11; 

NewRandoms ; 

OpenFiles; 

NEW (Statistician) ; 

ASK Statistician TO StartStats; 


repetition := 1; 

WHILE ( repetition <= totalruns) 
ASK TraceStream TO WriteString ("Starting Cutter"); 
ASK TraceStream TO WritebLn; 
NEW (CATF) ; 
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StartSimulation; 

ASK Statistician TO CollectRepStats (CATF); 

ASK TraceStream TO WriteString ("Destroying CATF") ; 
ASK TraceStream TO WriteLn; 

ASK CATF TO DestroyCATF; 


OUTPUT ("Repetition := ",repetition," completed") ; 
ASK EndTimerecorder TO 
WriteString (REALTOSTR (lastdeliverytime) ) ; 

ASK EndTimerecorder TO WriteLn; 
ResetSimTime (0.0); 
ASK Statistician TO ResetStats; 

INC (repetition) ; 

END WHILE; 

ASK Statistician TO StopStats; 

CloseFiles; 

SUTPUr A"Ending Cutter") > 


END { MAIN } MODULE { Cutter }. 


DEFINITION MODULE ARGMod; 


MODULE NAME:  ARGMod DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC 


DESCRIPTION : Defines the Amphibious Ready Group 
(ship) objects. 


FROM ResMod IMPORT ResourceObj; 
FROM GrpMod IMPORT QueueObj; 

FROM global IMPORT LocationxyY; 
FROM SpotMan IMPORT SpotManoObj; 
FROM RGlobals IMPORT SHierRectType; 


EXPORTTYPE 
ARGOb] = OBJECT; FORWARD; 

TYPE 

ARGOb}] = OBJECT (QueueObj) ; 
name >: STRING; steamspeed : REAL; 
airboss : SpotManObj; holdingspeed : REAL; 
Mocat lon : LocationxyY; course : REAL; 
squadron >: QueueObj; steaming : BOOLEAN; 
type ; SRING- 
Notdlecation : Locationxy; pumprate 2 aye, 


ASK METHOD ReadData (IN record : SHierRecType) ; 
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ASK METHOD ObjInit; 
ASK METHOD CurrentPos (OUT xcoord : REAL; 
OUT yecoords=) REALE 


ASK METHOD DestroyARG; 
TELL METHOD SetHoldingTime; 


END OBJECT { ARGObj }; 


END { DEFINITION } MODULE { ARGMod }. 


IMPLEMENTATION MODULE ARGMod; 


MODULE NAME: ARGMod DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt “UsMe 
DESCRIPTION : Defines the Amphibious Ready Group 
(ship) objects. 
wee ee ee ee Bee SS } 


FROM global IMPORT LocationxXY, Distance, DeBug; 
FROM RGlobals IMPORT SHierRecType; 

FROM MathMod IMPORT SQRT, pi, ACOS, COS, SIN; 
FROM SimMod IMPORT SimTime; 

FROM Transport IMPORT TransObj; 

FROM Debug IMPORT TraceStream; 


OBJECT ARGOb3; 


ASK METHOD ReadData (IN record : SHierRecType) ; 


VAR 
placeholder : INTEGER; 
BEGIN 
name := record. TopString; 
type := record.OwnedString[1]; 


location.x := STRTOREAL (record.OwnedString[2]) ; 
location.y :=STRTOREAL (record.OwnedString[3]); 
steamspeed :=STRTOREAL (record.OwnedString[4]) ; 
holdingspeed := 

STRTOREAL (record.OwnedString[5]); 
holal@eaelen.. ..— 

STRTOREAL (record.OwnedString [6] ) ; 
holdleecatron. 7: — 

STRTOREAL (record.OwnedString [7] ); 
pumprate := STRTOREAL(record.OwnedString[8])j; 
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ASK airboss TO PaintSpots (type, name, 
OBJTYPENAME (SELF), placeholder) ; 
ASK airboss TO SetName (name) ; 


END METHOD { ReadData }; 


ASK METHOD ObjInit; 
BEGIN 
NEW (airboss) ; 
NEW (Squadron) ; 
TELL SELF TO SetHoldingTime; 


END METHOD { ObjiInit }; 


TELL METHOD SetHoldingTime; 
VAR 
dist : REAL; 
steamtime : REAL; 
BEGIN 
Gist ;= Dastance (@ocatron, holdlocation); 
steamtime := (dist / steamspeed) * 60.0; 


it (else Ss ly (8) 
steaming := TRUE; 


WAIT DURATION steamtime; 
END WALT; 
BND ii. 
steaming := FALSE; 


END METHOD { SetHoldingTime }; 


ASK METHOD CurrentPos (OUT xcoord : REAL; 
OUT ycoord : REAL); 


VAR 
“e0elefenae| >: REAL; 
vOCOOrd >: REAL; 
ale OOTsG >: REAL; 
Valecoona >: REAL; 
Angle : REAL; 
hyp : REAL; 
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xvel, yvel : REAL; 


BEGIN 
x0 COOrd &@= lOocab tem. 
y0coord ®: =) locatrenr,,,; 
xLCOOrd "= holdlocat.on.<- 
ylcoord <= holdilecariow 


IF steaming 
hyp := SQRT((xlcoord - x0coord) * (xlicoond)-— x0¢coera 
+ (ylcoord - yOcoord) *(ylcoord - > y0coordae 
Angle := ACOS ((ylcoord - yOcoord) /hyp) ; 


IF ((xlcoord >= x0coord) AND (ylcoord <= yOcoord) ) 
Angle := Angle; 


xvel := SIN(Angle) *steamspeed; 
yvel := COS (Angle) *steamspeed; 
ELSIF ((xlcoord >= x0coord) AND (ylcoord >= 
yOcoord) ) 
Angle := Angle; 
xvel := SIN (Angle) * steamspeed; 
yvel := COS (Angle) * steamspeed; 
ELSIF ({xicoord <= x@Qcoord) AND {yi cocras— 
Yocoord))) 
Angle := (2.0*pi - Angle); 
xvel := SIN (Angle) * steamspeed; 
yvel := COS (Angle) * steamspeed; 
ELSE {((xlcoord <= xO0coord) AND (ylcoord <= 
yOcoord) ) } 
Angle := (2.0*pi - Angle); 
xvel := SIN (Angle) * steamspeed; 
yvel := COS (Angle) * steamspeed; 
END IF; 
xcoord := (SimTime()/60.0)*xvel + x0coord; 
ycoord := (SimTime()/60.0)*yvel + yOcoord; 
ELSE 
xCOOrd’ == nNoldlocatvone-.. 
ycoord := holdlecavion.,, 
END IF; 


END METHOD { CurrentPos }; 
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ASK METHOD DestroyARG; 
VAR 
deren. TransOb]- 
BEGIN 
ASK airboss TO DestroySpotMan; 
IF (ASK squadron numberIn > Q) 
acft := ASK squadron First (); 
WHILE (acft <> NILOBJ) ; 
ASK squadron TO RemoveThis(acft) ; 
ASK acft TO DestroyVehicle; 
acft := ASK squadron First (); 
END WHILE; 
END IF; 
DISPOSE (Squadron) ; 


END METHOD { DestroyArg }; 


END OBJECT { ARGMod }; 
END { IMPLEMENTATION } MODULE { ARGMod }. 


DEFINITION MODULE Attack; 


MODULE NAME: AttackAcft DATE WRITTEN: 7 Apr 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Cape UsMe MODIFIED BY: 


DESCRIPTION : Contains the Attack Aircraft Object. 


FROM RandMod IMPORT Random0Obj; 
FROM ARGMod IMPORT ARGOb}) ; 

FROM LZBeach IMPORT LZBeachObj; 
FROM SerialMod IMPORT SerialObj; 
FROM HDCMod IMPORT HDCObj; 

FROM global IMPORT LocationxyY; 
FROM RGlobals IMPORT SHierRecType; 
FROM Transport IMPORT TransObj; 


EXPORTTYPE 

AttackObj = OBJECT; FORWARD; 
TYPE 

AttackObj = OBJECT (TransOb}j) ; 


returntime : RandomObj; 


opk 


OVERRIDE 

ASK METHOD ObjInit; 

TELL METHOD Operate; 

TELL METHOD Load; 

TELL METHOD GetClearance ; 
TELL METHOD TransitToBeach; 
TELL METHOD FlyToShip; 

TELE MELHOR? spec; 


END OBJECT { AttackObj}; 


END { DEFINITION } MODULE { AttackAcft }. 


IMPLEMENTATION MODULE Attack; 


MODULE NAME: AttackAcft DATE WRITTEN: 7 Apr 92 
AUTHOR: Soe lew LAST MODIFIED: 
Capt USMC MOD TE TED er... 


DESCRIPTION : Contains the Attack Aircraft Object. 


FROM SimMod IMPORT SimTime; 

FROM RandMod IMPORT RandomObj; 

FROM ARGMod IMPORT ARGObj; 

FROM HDCMod IMPORT HDCObj],BriefingRec; 

FROM SerialMod IMPORT SerialObj; 

FROM global IMPORT LocationxY, Distance, ReturnTime, 
moreserials; 

FROM RGlobals IMPORT SHierRecType; 

FROM SpotProcedures IMPORT GetShipSpot, GetLZSpot, 
GiveBackShipSpot, GiveBackLZSpot, InitialLaunch; 

FROM LoadProcedures IMPORT LoadCargo, UnLoadCargo, ReArmAcft; 

FROM Transport IMPORT TransObj; 

FROM Debug IMPORT TraceStream; 


OBJECT AttackObj; 


ASK METHOD ObjInit; 

BEGIN 

NEW (holdingtimestats) ; 

ADDMONITOR (holdingtime, holdingtimestats) ; 


NEW (holdingshipstats) ; 
ADDMONITOR (holdingship, holdingshipstats) ; 


a2 


NEW (holdingbeachstats) ; 
ADDMONITOR (holdingbeach, holdingbeachstats) ; 


END METHOD { Objinit }; 


—_— — ee eee eee ie i i ei ii la 


=e we =f se = BS 2s 2S 2s 2s 2s 2S B= = = BSF SF BF BfS BFS FS BF2s 2 £2 f=] =2 =] —-§ —-& =F FF SF ee we Se SF SF we ee ee ee ee lle 


TELL METHOD Spot; 


VAR 
ship : STRING; 
startpoint ; Locationxy; 
endpoint ; Locationxy; 
gonogo >: REAL; 
newserial : SerialObj; 
available : BOOLEAN; 
loadtime : REAL; 

BEGIN 


destination := mymother; 


WAIT DURATION 5.0 
END WAIT; { spread time wait } 


airbornetime := SimTime(); 
TELL SELF TO TransitToBeach; 


END METHOD { Spot }; 


TELL METHOD Load; 
VAR 
rearmtime : REAL; 


BEGIN 


holding := SimTime() - holding; 
ReArmAcft (SELF, rearmtime) ; 


WAIT DURATION rearmtime 
END WAIT; { load serial wait } 
TELL SELF TO TransitToBeach; 


END METHOD { Load }; 
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TELL METHOD Operate; 
VAR 
available ; BOOLEAN; 


BEGIN 
InitialLaunch (SELF, available) ; 
IF (available) 
TELL SELF TO Spot; 
BN) ne 


END METHOD { Operate }; 


= eee eee ei i ee 


TELL METHOD TransitToBeach; 
VAR 
flighttime : REAL; 
available >: BOOLEAN; 
BEGIN 


WAIT FOR SELF TO GetClearance; 
END WAIT; 


IF (cleared) 
GiveBackShipSpot (SELF) ; 


flighttime := ASK ReturnTime 
UniformReal (60.0, 120.0); 


WAIT DURATION flighttime; 
END WAIT; { sortie time to shore } 


TELL SELF TO FlyToShip; 


ELSE 
TELL SELF TO ShutDown; 


END? is; 


END METHOD { TransitToBeach }; 


TELL METHOD FlyToShip; 
VAR 
available : BOOLEAN; 


BEGIN 
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Holewnig aes sr mlime () 
GetShipSpot (SELF, available); 
IF (available) 


Ties bib TO load; 
ENDS; 


END METHOD { FlyToShip }; 


TELL METHOD GetClearance; 
BEGIN 
cleared := TRUE; 
INC (totalsorties) ; 
IF ((totalsorties > 3) 
OR ((SimTime() - ailrbornetime) >crewday) ) 
cleared := FALSE; 
END IF; 


END METHOD { GetClearance}; 


END OBJECT { AttackAcftObj }; 


END { IMPLEMENTATION } MODULE { AttackAcft }. 


DEFINITION MODULE CATFMod; 


MODULE NAME:  CATFMod DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC 


DESCRIPTION : Defines the Commander, Amphibious Task Force 
object. This object keeps track of all ships, LZs, and HDCobjs 
that are created. Primarily, these objects are tracked for 
disposal at the end of each replication. 


FROM GrpMod IMPORT QueueObj; 
FROM ARGMod IMPORT ARGOb]j; 

FROM LZBeach IMPORT LZBeachoObj; 
FROM SerialMod IMPORT SerialObj; 
FROM HDCMod IMPORT HDCObj; 
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EXPORTTYPE 
CATFObj] = OBJECT; FORWARD; 


TYPE 
CATFObj = OBJECT; 
shiplist : QueueObj; 
lzbeachlist : QueueObj; 
hdclist : QueueObj; 


ASK METHOD ObjInit; 
ASK METHOD AddShip (IN newship : ARGObj; 
IN HDC : HDCOb]); 
ASK METHOD AddLZBeach (IN newlz : LZBeachObj) ; 
ASK METHOD DestroyCATF; 


END OBJECT { CATFObj }; 


END { DEFINITION } MODULE { CATFMod }. 


IMPLEMENTATION MODULE CATFMod; 


MODULE NAME: CATFMod DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC 


DESCRIPTION : Defines the Commander, Amphibious Task Force 
object. This object keeps track of all ships, LZs, and HDCobjs 
that are created. Primarily, these objects are tracked for 
disposal at the end of each replication. 


FROM ARGMod IMPORT ARGOb]J; 

FROM LZBeach IMPORT LZBeachObj; 

FROM SerialMod IMPORT SerialObj; 

FROM Transport IMPORT TransObj; 

FROM HDCMod IMPORT HDCOb]J; 

FROM global IMPORT DeBug; 

FROM Procedures IMPORT FindSource, FindDestination; 
FROM CreateARG IMPORT Scenario; 


OBJECT CATFObj; 


ASK METHOD ObjInit; 
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VAR 
HeGe. HPCOb, ; 


BEGIN 
NEW (shiplist) ; 
NEW (lzbeachlist) ; 
NEW (hdclist); 
NEW (HDC) ; 


ASK hdclist TO Add (HDC); 
Scenario(SELF, HDC); 


FindSource (HDC, SELF); | 
FindDestination (HDC, SELF); 


END METHOD { ObjInit }; 


ASK METHOD AddShip (IN newship : ARGObj; 
IN HDC : HDCOb}) ; 
VAR 
aert = MrmansOb 7: 
BEGIN 
ASK shiplist TO Add (newship) ; 
acft := ASK newship.squadron First (); 
WHILE acft <> NILOBJ 
ASK acft TO NewHDC (HDC) ; 
acft := ASK newship.squadron 
Next (ac£t) ; 
END WHILE; 


END METHOD { AddShip }; 


ASK METHOD AddLZBeach (IN newlz : LZBeachObj) ; 
BEGIN 


ASK lzbeachlist TO Add (newlz) ; 
END METHOD { AddLZ }; 


ASK METHOD DestroyCATF; 


ship : ARGObj; 


S| 


2 : LZBeachObj; 
hdG eH eeebi 
BEGIN 


IF ( ASK shiplist numberIn > 0 ) 
ship := ASK shiplist Ficceen, 
WHILE ( ship <> NILOBJ) 
ASK shiplist TO RemoveThis (ship) ; 
ASK ship TO DestroyARG; 
ship := ASK shiplist First(); 
END WHILE; 
END IF; 


DISPOSE (shiplist) ; 


IF (ASK lzbeachlist numberIn > 0) 
1z := ASK lzbeachlist First (); 
WHILE ( 1z <> NILOBJ) 
ASK lzbeachlist TO RemoveThis (12); 
ASK 1z TO DestroyLZ; 
lz := ASK lzbeachlist First(); 
END WHILE; 
END EE 


DISPOSE (lzbeachlist) ; 
IF (ASK hdclist numberIn > 0) 
hde := ASK hdclist First (); 
WHILE ( hdc <> NILOBJ)’ 
ASK hdclist TO RemoveThis (hdc) ; 
ASK hdc TO DestroyHDC; 
hde := ASK hdclist First()-; 
END WHILE; 
ENDO EF 
DISPOSE (hdclist) ; 


END METHOD { DestroyCATF }; 


END OBJECT { CATFObj }; 
END { IMPLEMENTATION } MODULE { CATFMod }. 
DEFINITION MODULE CreateARG; 


MODULE NAME: CreateARG DATE WRITTEN: 18 Mar 32 


Sye. 


AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC 


DESCRIPTION : The procedures here are used to create all of 


the objects in the simulation and to initialize the current 
scenario. 


FROM CATFMod IMPORT CATFOb); 

FROM HDCMod IMPORT HDCObj; 

FROM RGlobals IMPORT SHierRecType; 
FROM ARGMod IMPORT ARGObj; 

TYPE 


PROCEDURE Scenario(INOUT CATF : CATFObj; 
INOUT HDC : HDCObj); 


PROCEDURE MakeShips(INOUT CATF : CATFObj; 
INOUT HDC : HDCObj); 


PROCEDURE PlotLZ (INOUT CATF : CATFOb)); 


PROCEDURE BuildSerials (INOUT CATF : CATFObj; 
INOUL VHD Ce HD CObag): 


PROCEDURE MakeAcft ( INOUT newrec : SHierRecType; 
INOUT ship : ARGObj; 
NOU eH G lett C Olga). 


END { DEFINITION } MODULE { CreateArg }. 


IMPLEMENTATION MODULE CreateARG; 


MODULE NAME: CreateARG DATE WRITTEN: 18 Mar 92 
AUTHOR: S. 5B. Shaw LAST MODIFIED: 
Capt USMC 


DESCRIPTION : The procedures here are used to create all of 
the objects in the simulation and to initialize the current 
scenario. 


FROM RGlobals IMPORT SHierRecType, 
ShipSHArray, 
AcftSHArray, 


oo 


LZSHArray, 
SerialSHArray; 
FROM CATFMod IMPORT CATFObj; 
FROM Debug IMPORT TraceStream; 
FROM ARGMod IMPORT ARGObj; 
FROM HDCMod IMPORT HDCObj; 
FROM LZBeach IMPORT LZBeachObj; 
FROM SerialMod IMPORT SerialObj; 
FROM Transport IMPORT TransObj; 
FROM FindSHRec IMPORT FindSHRec; 
FROM global IMPORT moreserials, totalserials, repetition, 
paxtoliEt, *eargocol? fer 
FROM Attack IMPORT AttackObj; 
FROM OutputDriver IMPORT Scenariorecorder; 
FROM Statistics IMPORT vehiclestatrec, vehiclestatlist; 


PROCEDURE Scenario(INOUT CATF : CATFObj; 
INOUT HDC : HDCObj); 
BEGIN 


MakeShips (CATF, HDC); 
PlOtLZ (GATE 
BuildSerials (CATF, HDC); 


END PROCEDURE { Scenario }; 


PROCEDURE MakeShips(INOUT CATF : CATFObj; 
ENOUT HBG ]=* HbGeba = 


VAR 
ship : ARGObj; 
newrec : SHierRecType; 
1 : INTEGER; 
BEGIN 
ie t= ee 


IF (repetition = 1) 
ASK Scenariorecorder TO WriteString 
("------------------- SHIP 


ASK Scenariorecorder TO WriteLn; 


ASK Scenariorecorder TO WriteLn; 
ASK Scenariorecorder TO WriteString 
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END 


("SHIP NAME SHIP TYPE STARTX STARTYy 
HOLDx" +" HOLDy") ; 

ASK Scenariorecorder TO WriteLn; 

ASK Scenariorecorder TO WriteLn; 

IAS 


REPEAT 
newrec := ShipSHArray [1]; 


IF (newrec = NILREC) 
ASK TraceStream TO WriteString("NILREC in 
MakeShips") ; 
ASK TraceStream TO WriteLn; 

ENDS Lr > 


NEW (ship) ; 
ASK ship TO ReadData (newrec) ; 


ILS seteyevenc ae 1fopay a) 
ASK Scenariorecorder TO WriteString oleate .name+ 
y "+tship.type+" 
+INTTOSTR (ROUND (Ship.location.x) )+ 
’ "+INTTOSTR (ROUND (ship.location.y) ) 
i tt 
+INTTOSTR (ROUND (ship.holdlocation.x) ) 
+" "+INTTOSTR (ROUND (Ship.location.y) )); 
ASK Scenariorecorder TO WriteLn; 

END IF; 


ASK CATF TO AddShip (ship, HDC) ; 
MakeAcft (newrec, ship, HDC); 
LNG Gi); 


Preeti dl tio.) 
ASK Scenariorecorder TO WriteLn; 
IND eae 


UNTIL (i > HIGH(ShipSHArray) ); 


END PROCEDURE; 


PROCEDURE PlotLZ (INOUT CATF : CATFOb}) ; 


LZ : LZBeachObj; 
newLZ : SHierRecType; 
aL : INTEGER; 
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BEGIN 


IF 


END IF; 


SLs 


(repetliicmme— oi 


ASK 

ASK 

ASK 
eu 


ASK 
ASK 
ASK 


Scenariorecorder TO WriteLn; 
Scenariorecorder TO WriteLn; 
Scenariorecorder TO WriteString 


Scenariorecorder TO WriteLn; 
Scenariorecorder TO WriteLn; 
Scenariorecorder TO WriteString 


("LZ NAME LOCATIONx LOCATIONy SPOTS a, 


ASK 
ASK 


REPEAT 
newLZ := LZSHArray [i]; 
IF newhLZ = NILREC 


END 


Scenariorecorder TO WriteLn; 
Scenariorecorder TO WriteLn; 


ASK TraceStream TO WriteString("NILREC in 
PlotLZS") ; 

ASK TraceStream TO WriteLn; 

Te 


NEW (LZ) ; 


ASK 
ASK 


LZ TO ReadData (newLZ) ; 
CATF TO AddLZBeach (LZ); 


ING Ga.) 


IF 


END 


UNTIL 


(repetition = 1) 


ASK Scenariorecorder TO WriteString (LZ.name+ 
"+INTTOSTR (ROUND (LZ.location.x) ) + 

n "+INTTOSTR (ROUND (LZ.location.y) ) + 
"+INTTOSTR(LZ.numlandingspots) ) ; 
ASK Scenariorecorder TO WriteLn; 

ASK Scenariorecorder TO WriteLn; 

iB 


(i > HIGH(LZSHArray) ); 


END PROCEDURE { PlotLz }; 


PROCEDURE BuildSerials (INOUT CATF : CATFOb]; 


VAR 


serial 


INOUT HDC : HDCObj) ; 


SerialObj; 
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newserial : SHierRecType; 


a >: INTEGER; 
BEGIN 
1 := 1; 
REPEAT 
newserial := SerialSHArray [i]; 


IF newserial = NILREC 
ASK TraceStream TO WriteString 
("NILREC in BuildSerials") ; 
ASK TraceStream TO WriteLn; 
BNE) SE: 


NEW (serial) ; 
ASK serial TO ReadData (newserial) ; 
ASK HDC.seriallist TO Add (serial); 


IF (repetition = 1) 
paxtolift := paxtolift + serial.pax; 
Gangor@Olliee:— Gargotolift + serial.cargo; 
END IF; 
ENC (ae 
mMoreserials := TRUE; 


UNTIL (1 > HIGH(SerialSHArray) ); 
totalserials := ASK HDC.seriallist numberlIn; 


END PROCEDURE { BuildSerials }; 


PROCEDURE MakeAcft ( INOUT newrec : SHierRecType; 
INOUT ship : ARGObj; . 
INOUT HDC : HDCOb}j); 


VAR 
at : INTEGER; 
n : INTEGER; 
acft : TransObj; 
acftdata : SHierRecType; 
transports >: BOOLEAN; 
attack : BOOLEAN; 
attackacft : AttackObj; 
record : vehiclestatrec; 
BEGIN 
ie i> 
Tigo —* 1 
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Eransports := TRUE; 

WHILE ( (newrec.OwnedString[i] <> "H") AND 
(newrec.OwnedString[i] <> "\\") AND 
(1 < HIGH(newrec.OwnedString)) ); 


INC +(a5)- 
END WHILE; 
ING (ays 
IF ( (newrec.OwnedString[i-1] = "\\") OR 
(1 >= HIGH(newrec.OwnedString)) ) 
transports := FALSE; 
ENB ie 


IF (transports) 
IF (repetition = 1) 
ASK Scenariorecorder TO WriteString 


cm Transports Aboard:") ; 
BND ie 
REPEAT 
FindSHRec (AcftSHArray, newrec.OwnedString [i] 
,acftdata) ; 


IF (repetleron = 8) 
ASK Scenariorecorder TO WriteString 


(" "sacftdata.TopString+" u 
+newrec.OwnedString [i+1]) ; 

END IF; 

eet =e 


WHILE (n <=(STRTOINT (newrec.OwnedString [i+1] ))) 


NEW (acf£t) ; 

ASK acft TO ReadData (acftdata) ; 
ASK acft TO SetSide (n); 

ASK acft TO AssignMother (ship) ; 

ASK acft NewHDC (HDC) ; 

ASK acft TO SetLaunchTime (STRTOREAL 
(mewrec.OwnedString[i+l+n])); 

TELL acf£t TO Operate; 

ASK ship.squadron TO Add(acft) ; 


IF (repetition = 1) 
NEW (record) ; 


record.name := acft.name; 
record.sidenum := acft.sidenumber; 
record.mother := ac£t.mymother.name; 


ASK vehiclestatlist TO Add (record: 
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ENE im); 

END WHILE; 

PNG (ae 4): 

oa — ee OR 

UNTIL ( (1 > HIGH(newrec.OwnedString)) OR 
(newrec.OwnedString[i] = "S") OR 
(newrec.OwnedString[i] = "A") OR 
(newrec.OwnedString[i] = "\\") ); 


ieerenect1tion = 1) 
ASK Scenariorecorder TO WriteLn; 
END 7b 
END IF; 


iL Se ls 

MoS 1: 

abeacks:— I[RUE-; 

WHILE ( (newrec.OwnedString[i] <> "A") AND 
(newrec.OwnedString[i] <> "\\") AND 
(1 < HIGH(newrec.OwnedString)) ); 
ONG ot a ie 

END WHILE; 

IEINAG. (eat) © 


IF ( (newrec.OwnedString[i-1] = "\\") OR 
(i >= HIGH(newrec.OwnedString)) ) 


attack := FALSE; 
END IF; 


IF (attack) 
IF (repetition = 1) 
ASK Scenariorecorder TO WriteString 


(on RE taAcCK ACEEMAbDOard: ") ; 
END IF; 
REPEAT 
FindSHRec (AcftSHArray, newrec.OwnedString [i] 
,acftdata) ; 


Pecemeti tion = 1) 
ASK Scenariorecorder TO WriteString 


(" "sacftdata.TopString+" : 
+newrec.OwnedString [i+1]) ; 

END IF; 

Aas =e 


WHILE (n <=(STRTOINT (newrec.OwnedString[i+1]))) 
NEW (attackac£t) ; 


ASK attackacf~t TO ReadData (acftdata) ; 


Se) 


ASK attackacft TO SetSide (n); 

ASK attackacft TO AssignMother (ship) ; 

ASK attackacft NewHDC (HDC); 

ASK attackacft TO SetLaunchTime (STRTOREAL 
(newrec.OwnedString[i+1l+n])); 

TELL attackacft TO Operate; 

ASK ship.squadron TO Add(attackacft) ; 


LE Bepet at lemes— 1) 
NEW (record) ; 
record.name := attackacft.name; 
record.sidenum := 
attackacft.sidenumber; 
record.mother := 
attackacft .mymother.name; 
ASK vehiclestatlist TO Add (record) ; 
END eH. 


ENG (rar 
END WHILE; 


(2 


,n+1); 
: le 
UNTIL ( (i > HIGH(newrec.OwnedString)) OR 
(newrec.OwnedString [i] = 9"S") er 
(newrec.OwnedString[i] = "H") OR 
( 


w\\t) ) ; 


newrec.OwnedString [i] 


IF {Fepeti tiene —a1)) 
ASK Scenariorecorder TO WriteLn; 
END IF; 


END PROCEDURE { MakeAcft }; 


END { IMPLEMENTATIOM } MODULE { CreateARG }. 


DEFINITION MODULE DebugRun; 


meme iii iii ee ieee ee ie es ee el es lc ee weer etc ae ee es ec esc em ese el 


MODULE NAME: 


FindSHRec DATE WRITTEN: O01 Mar 92 
M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODIFIED Ey: S. E. Shaw 
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Capt USMC 
DESCRIPTION : Used to turn the trouble shooting messages 
Gm and off. 


PROCEDURE SetUpD(IN Trace : BOOLEAN) ; 


END { DEFINITION } MODULE { DebugRun }. 


IMPLEMENTATION MODULE DebugRun; 


MODULE NAME: FindSHRec DATE WRITTEN: Uae Mate oZ 
AUTHOR : M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MOD PE ia By : Soe He olaw 
Capt USMC 


DESCRIPTION : Used to turn the trouble shooting messages 
om and off. 


FROM IOMod IMPORT FileUseType (Output) ; 
FROM UtilMod IMPORT DateTime; 
FROM Debug IMPORT TraceStream; 


vA ep) : STRING; 


BEGIN 
NEW (TraceStream) ; 
ASK TraceStream TO Open("debug.out", Output); 


DateTime (DT) ; 

ASK TraceStream TO WriteString (DT) ; 
ASK TraceStream TO WriteLn; 

ASK TraceStream TO WriteLn: 

ASK TraceStream TO WriteLn; 


IF Trace 
ASK TraceStream TO TraceOfEt; 
ASK TraceStream TO WriteString("Initially, trace is 


iol )) F 
ASK TraceStream TO WriteLn; 
ELSE 
ASK TraceStream TO WriteString("Initially, trace is 
Ore.) - 


ASK TraceStream TO WriteLn; 
END IF; 


67 


END PROCEDURE; 


END { IMPLEMENTATION } MODULE { DebugRun }. 


DEFINITION MODULE FindSHRec; 


{ wee ee ee ee ee ee 6 Se = eee 
MODULE NAME: FindSHRec DATE WRITTEN: O01 Mar 92 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 

Prof NPGS MODIFIED’ BY: S. Ew @haw 
Capt USMC 


DESCRIPTION : Searches for the requested data record from 
the input data array. 


FROM RGlobals IMPORT SHierRecType, 
SHArrayType; 
PROCEDURE FindSHRec(IN SHArray : SHArrayType; 
IN TopString ss Gk ING, 
OUT SHRec : SHierRecType) ; 

END { DEFINITION } MODULE { FindSHRec }. 

IMPLEMENTATION MODULE FindSHRec; 

(----2--+2---22--+-- 2 neve eee eee eee eee eee eee 
MODULE NAME: FrIiGonicee DATE WRITTEN: Oi Mawee2 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 

Prof NPGS MODIFIED BY: S. E. Shaw 
Capt USMC 


DESCRIPTION : Searches for the requested data record from 
the input data array. 


en nm ee Se } 
FROM RGlobals IMPORT SHierRecType, 

sHArrayType; 
FROM global IMPORT DeBug; 
(=== 2-2 eee eee ne ee eee eee eee 

PROCEDURE FindSHRec(IN SHArray : SHArrayType; 
IN TopString > SHRING. 

OUT SHRec : SHierRecType) ; , 
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ThisRec : SHierRecType; 


1 : INTEGER; 
BEGIN 

i := 0; 

REPEAT 
ENC (ape 
TAESReCCe.—) Skarray [i] - 

ee eth Shaeay))) Ok (thaskec.TopsString = 

TopString) ); 

iP rhiskeecelopSstring = lopString) 
SHRec := ThisRec; 

ELSE 
SHRec := NILREC; 

BND IF; 


END PROCEDURE; 


END { IMPLEMENTATION } MODULE { FindSHRec }. 


DEFINITION MODULE FuelGuage; 


A A a ee ee ee ee ee ee ee ee ee ee eee 


MODULE NAME: FuelGuage DATE WRITTEN: O1 Mar 92 
AUTHOR: See.) shaw LAST MODIFIED: 
Capt USMC MODIFIED BY: 


DESCRIPTION : Procedures used to track the fuel usage of 
the TransportCraft objects. 


es ee i eee eee Se a } 
FROM Transport IMPORT TransObj; 
TYPE 
PROCEDURE BurnFuel ( IN vehicle : TransObj; 
IN groundtime : REAL; 
IN flighttime : REAL) ; 
PROCEDURE CheckGas ( IN vehicle : TransObj; 


OUT fuelrequired : BOOLEAN) ; 
PROCEDURE Getfuel ( IN vehicle : TransObj; 
OUT duration : REAL); 


END { DEFINITION } MODULE { FuelGuage }. 
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IMPLEMENTATION MODULE FuelGuage; 


MODULE NAME: FuelGuage DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 

Capt USMC MODIFIED BY: 
DESCRIPTION : Procedures used to track the fuel usage of 


the TransportCraft objects. 


FROM SimMod IMPORT SimTime; 

FROM global IMPORT LocationxXY, Distance; 
FROM Transport IMPORT TransObj; 

FROM Debug IMPORT TraceStream; 


PROCEDURE BurnFuel (IN vehicle : TransObj; 
IN groundtime : REAL; 
IN emptytime : REAL: 
IN loadedtime 2 REAL 
VAR 
groundburn : REAL; 
loadedburn : REAL; 
emptyburn >: REAL; 
startfuel >: REAL; 
endfuel : REAL; 
BEGIN 
groundburn := vehicle.groundburnrate; 
loadedburn := vehicle.loadedburnrate; 
emptyburnrate := vehicle.emptyburnrate; 
startfuel := vehicle. fuelonboard; 
endfuel := startfuel 


- ( groundburn * (groundtime/60.0) ) 

- ( emptyburn * (emptytime/60.0) ) 

- ( loadedburn * (loadedtime/60.0)); 
ASK vehicle TO UseFuel (endfuel); 


END PROCEDURE { BurnFuel }; 


PROCEDURE Getfuel (IN vehicle : TransObj; 
OUT duration : REAL); 


VAR 


amount >; REAL; 
refuelrate : REAL; 


70 


max eR As 
totfuel >: REAL; 


BEGIN 
amount := vehicle.maxfuel - 
vehicle. fuelonboard; 


IF ((vehicle.fuelonboard <= 0.0) AND 
(showerrors) ) 
ASK TraceStream TO WriteString("GetFuel 
"4+vehicle.name+" "4 
INTTOSTR (vehicle.sidenumber) + 
UE SORU AE 2 O) se ee GP Ey ir v) 
ASK TraceStream TO WriteLn; 


BNDe iE: 
refuelrate := vehicle.destination.pumprate; 
duration := amount / refuelrate; 


ASK vehicle TO TakeOnFuel; 


END PROCEDURE { Getfuel }; 


PROCEDURE CheckGas ( IN vehicle : Trans0Obj; 
OUT fuelrequired : BOOLEAN) ; 


VAR 
Start : Locationxy; 
end  LOCAbTomnY- 
transitdist : REAL; 
requiredfuel : REAL; 
BEGIN 
fuelrequired := FALSE; 
ASK vehicle.serialonboard.source TO CurrentPos (start.x, 
parse. y) ; 
end := vehicle.serialonboard.destination.location; 
transitdist := Distance(start, end); 
requiredfuel := (((2.0 * transitdist) /vehicle.loadedspeed) 


* vehicle.loadedburnrate) * 
1.3+vehicle.minfuel; 


IF requiredfuel >= vehicle. fuelonboard 
fuelrequired := TRUE; 
BND IP: 


END PROCEDURE { CheckGas }; 


pial 


END { IMPLEMENTATION } MODULE { FuelGuage }. 


DEFINITION MODULE global; 


MODULE NAME: global DATE WRITTEN: 18 Maier 
AUTHOR: Si Ee shaw LAST MODIFIED: 
Capt, JsMe MODIPIEDS BY: 


DESCRIPTION Contains all random number streams, as well 
as several control variables. Procedures within create the 
random variable streams, as well as empty queues prior to 
disposing of them. 


FROM RandMod IMPORT RandomObj; 
FROM Debug IMPORT DebugStream; 
FROM GrpMod IMPORT QueueObj, RankedObj; 
FROM StatMod IMPORT RStatObj; 


VAR ( 
moreserials : BOOLEAN; 
showerrors BOOLEAN; 
InternalStream RandomObj ; 
ExternalStream RandomObj ; 
FoldStream RandomObj ; 
SpreadStream RandomObj ; 
CargoStream RandomObj ; 
ReturnTime RandomObj; 
RearmTime RandomObj ; 
totalserials INTEGER; 
repetition INTEGER; 
paxtolift REAL; 
CarEgGOeO sre REAL; 

TYPE 
DeBug = OBJECT (DebugStream) ; 
END OBJECT; 

LocationxY = FIXED RECORD 
x REAL 
y : REAL; 


END RECORD { Locationxy }; 


PROCEDURE Distance 


(IN locationl LocationxyY; 
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IN location2 : LocationXY) : REAL; 
PROCEDURE NewRandoms; 
PROCEDURE EmptyQ (IN queue : QueueObj) ; 
PROCEDURE EmptyRankedQ (IN queue : RankedObj) ; 


END { DEFINITION } MODULE { global }. 


IMPLEMENTATION MODULE global; 


MODULE NAME: global DATE WRITTEN: Itsy le lig 3s) 2 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Care rae UoMC MObiR Ihe bY : 


DESCRIPTION : Contains all random number streams, as well 
as several control variables. Procedures within create the 
random variable streams, as well as empty queues prior to 
disposing of them. 


FROM RandMod IMPORT RandomObj; 

FROM ReadSeed IMPORT ReadSeed; 

FROM MathMod IMPORT SQRT; 

FROM GrpMod IMPORT QueueObj, RankedObj; 


PROCEDURE Distance (IN locationl : LocationxyY; 
i~leecak1On2 =F LOcalLlonxy)=. REAL; 

BEGIN 

RETURN SORT ((location1l.x - location2.x) * 

(lecartenl. « — location2.x) + (locationl.y 
=elocarion2 .y) + "(locationl. y= 
liGeataenZ 5); 

END PROCEDURE; 


PROCEDURE NewRandoms; 
BEGIN 


NEW (InternalStream) ; 
ASK InternalStream TO SetSeed (ReadSeed()); 


NEW (ExternalStream) ; 
ASK ExternalStream TO SetSeed (ReadSeed()); 
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NEW (SpreadStream) ; 
ASK SpreadStream TO SetSeed (ReadSeed() ); 


NEW (FoldStream) ; 
ASK FoldStream TO SetSeed (ReadSeed()); 


NEW (CargoStream) ; 
ASK CargoStream TO SetSeed (ReadSeed() ) ; 


NEW (ReturnTime) ; 
ASK ReturnTime TO SetSeed (ReadSeed()) ; 


NEW (RearmTime) ; 
ASK RearmTime TO SetSeed (ReadSeed()); 


END PROCEDURE { NewRandoms }; 


PROCEDURE EmptyQ (IN queue : QueueQOb}) ; 


VAR 
Crash = ANYOBRG: 


BEGIN 


IF (ASK queue numbertIn > 0) 
trash := ASK queue First(); 
WHILE (trash <> NILOBJ) 
ASK queue TO RemoveThis (trash) ; 
trash := ASK queue First(); 
END WHILE; 
END IF; 


END PROCEDURE { EmptyQ }; 


PROCEDURE EmptyRankedQ (IN queue : RankedObj) ; 


VAR 
trash : ANYOBJ; 
BEGIN 
IF (ASK queue numberiIn > Q) 


trash := ASK queue First(); 

WHILE (trash <> NILOBJ) 
ASK queue TO RemoveThis (trash) ; 
trash := ASK queue First(); 
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END WHILE; 
END IF; 


END PROCEDURE { EmptyRankedQ }; 


END { IMPLEMENTATION } MODULE { global }. 


DEFINITION MODULE Input; 


MODULE NAME: halo DATE WRITTEN: O1 Mar 92 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODEFIED BY: S. E. Shaw 
Capt USMC 


DESCRIPTION : Reads the file containing the names of all 
data files used for the simulation. 


Err 2h 2) PEG reer ee Se eK } 
PROCEDURE ReadEmALI1; 
END { DEFINITION } MODULE { Input }. 
IMPLEMENTATION MODULE Input; 
MODULE NAME: imahoithe DATE WRITTEN: OieMar 92 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODIFIED BY: S. 5. Shaw 
Capt USMC 


DESCRIPTION : Reads the file containing the names of all 
data files used for the simulation. 


FROM RGlobals IMPORT FileNameType; 

FROM IOMod IMPORT StreamObj, FileUseType (Input) ; 

FROM RGlobals IMPORT MasterFileName, 
AcftSHArray, ShipSHArray, SpotSHArray, LZSHArray, 
OutputFileName, SerialSHArray; 

FROM RGlobals IMPORT SeedArray; 

FROM ReadLst IMPORT ReadLst; 

FROM ReadSeed IMPORT ReadTheSeeds; 

FROM global IMPORT DeBug; 


VAR 


LS 


AcftFileName, 

ShipFileName, 

SpotFileName, 

LZFileName, 

SerialFileName, 

SeedFileName : FileNameType; 


BEGIN 
ReadLst (AcftSHArray , AcftFileName) ; 


END PROCEDURE { ReadAcft }; 


BEGIN 
ReadLst (ShipSHArray , ShipFileName) ; 


END PROCEDURE { ReadShip }; 


BEGIN 
ReadLst (SpotSHArray , SpotFileName) ; 


END PROCEDURE { ReadSpots }; 


BEGIN 
ReadLst (LZSHArray, LZFileName) ; 


END PROCEDURE { ReadLZ }; 


BEGIN 
ReadLst (SerialSHArray, SerialFileName) ; 


END PROCEDURE { ReadSerial }; 


cS 


VAR 


File : StreamObj; 
sii 9: STRING; 


BEGIN 
NEW (File) ; 
ASK File TO Open(MasterFileName, Input) ; 


ASK File TO ReadString (AcftFileName) ; 
ASK File TO ReadLine(str) ; 


ASK File TO ReadString(ShipFileName) ; 
ASK File TO ReadLine(str) ; 


ASK File TO ReadString (SpotFileName) ; 
ASK File TO ReadLine(str) ; 


ASK File TO ReadString (LZFileName) ; 
ASK File TO ReadLine(str); 


ASK File TO ReadString(SerialFileName) ; 
ASK File TO ReadLine(str) ; 7 


ASK File -TO ReadString (SeedFileName) ; 
ASK File TO ReadLine(str) ; 


ASK File TO ReadString(OutputFileName) ; 
ASK File TO ReadLine (str) ; 


ReadAcft; 

ReadShip; 

ReadSpots; 

ReadLZ; 

ReadSerial; 

ReadTheSeeds (SeedFileName) ; 
END PROCEDURE { ReademAll }; 


END { Implementation } MODULE { Input }. 
DEFINITION MODULE HDCMod; 


MODULE NAME: HDCMod DATE WRITTEN: 18 Mar 92 


AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC MODIFIED BY: 


DESCRIPTION : The Helicopter Direction Center obj is used 
to control the TransportCraft movements. This object assigns 


Wed 


serials to the craft, as well as direct where the craft go to 
pick up their next serial. 


FROM GrpMod IMPORT QueueObj, RankedObj ; 
FROM SerialMod IMPORT SerialObj; 

FROM ARGMod IMPORT ARGObj]; 

FROM LZBeach IMPORT LZBeachObj; 


EXPORTTYPE 
HDCObj) = OBJECT; FORWARD; 
TYPE 
BriefingRec = RECORD 
serial : INTEGER; 
dest : ARGObj; 
1z : LZBeachObj; 
loadsize : INTEGER; 
END RECORD; 


SerialListObj = OBJECT (RankedObj) ; 

OVERRIDE 

ASK METHOD Rank (IN a, b : ANYOBJ) : INTEGER; 
END OBJECT { SerialListObj }; 


HDCObj = OBJECT; 
seriallist : SerialListObj; 


ASK METHOD ObjInit; 

ASK METHOD GiveLoad (IN serialnum : INTEGER; 
OUT newload : SerialObj) ; 

ASK METHOD GiveFirstLoad (IN ship : STRING; 
IN acftsize : INTEGER; 
OUT newload : Serial0Obj; 
OUT othership : BOOLEAN) ; 

ASK METHOD NewDestination (OUT briefing 


BriefingRec; 

IN acftsize : 
INTEGER ; 
OUT assignedaload 
BOOLEAN) ; 


ASK METHOD DestroyHDC; 

ASK METHOD CombineLoads (IN briefing : BriefingRec; 
OUT combined : BOOLEAN) ; 

END OBJECT { HDCObj }; 


END {DEFINITION } MODULE { HDCMod }. 
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IMPLEMENTATION MODULE HDCMod; 
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MODULE NAME: HDCMod DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC MODIFIED BY: 


DESCRIPTION : The Helicopter Direction Center obj is used 
to control the TransportCraft movements. This object assigns 
serials to the craft, as well as direct where the craft go to 
pick up their next serial. 


FROM SerialMod IMPORT SerialObj; 

FROM SimMod IMPORT SimTime; 

FROM global IMPORT moreserials, EmptyQ, EmptyRankedQ; 
FROM RGlobals IMPORT SerialSHArray; 

FROM Debug IMPORT TraceStream; 


OBJECT SerialListObj; 


ASK METHOD Rank (IN a, b : ANYOBJ) : INTEGER; 
VAR 
seriala, serialb : SerialObj; 


BEGIN 
seriala := a; 
serialb := b; 


IF seriala.priority < serialb.priority 
RE LURN  — Le 

ELSIF seriala.priority > serialb.priority 
RETURN 2; 

ELSE 
RETURN OQ; 

END EE > 


END METHOD { Rank }; 


END OBJECT { SerialListObj }; 


{HEHEHE EE FE FEE ELE SHEFF FETE TET HEE FEAF EEE E FEE E EHF gets esata | 


OBJECT HDCObj; 


LS 


ASK METHOD ObjInit; 
BEGIN 


NEW(seriallist); 
END METHOD { ObjInit }; 
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ASK METHOD GiveLoad (IN serialnum : INTEGER; 
OUT newload : SerialObj) ; 
VAR 
thisload : BOOLEAN; 
checkthis : SerialObj; 


BEGIN 
thisload := FALSE; 
checkthis := ASK se¥riallist Pinsr GG 


IF (checkthis <> NILOBJ) 
WHILE NOT thisload 
IF checkthis.serialnum = serialnum 
ASK seriallist TO RemoveThis 
(checkthis) ; 
thisload := TRUE; 
ELSE 
checkthis := ASK seriallist Next 
(checkthis) ; 
ENDO IEE: 
END WHILE; 


END IF; 
newload := checkthis; 


END METHOD {GiveLoad }; 


ASK METHOD GiveFirstLoad (IN ship : STRING; 
IN acftsize : INTEGER; 
OUT newload : SerialObj; 
OUT othership : BOOLEAN) ; 
VAR 
goodload : BOOLEAN; 
repositionload : BOOLEAN; 
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checkthis : SerialObj; 


iL : INTEGER; 
BEGIN 

jee = phe 

goodload := FALSE; 

othership := FALSE; 

checkthis := ASK seriallist First (); 


REPEAT 
IF ((checkthis.source.name = ship) AND 


(NOT checkthis.allocated) AND 
(checkthis.minliftsize <= acftsize)); 


Gece los2em.— LRUE; 

newload := checkthis; 
END IF; 
checkthis := ASK seriallist Next (checkthis) ; 
Ti NIG (al) 


UNTIL ((goodload) OR (i > ASK seriallist numberIn) ); 


IF (NOT goodload) 
eet les 
checkthis := ASK seriallist First(); 
REPEAT | 
IF ((NOT checkthis.allocated) AND 
(checkthis.minliftsize <= acftsize) ) 


repositionload := TRUE; 
newload := checkthis; 
END IF; 
checkthis := ASK seriallist Next (checkthis) ; 
TING (ane 
UNTIL ((repositionload) OR (i > ASK seriallist 
numbertIn) ); 
Sriciashioms— TRUE; 


END IF; 
ASK newload TO AllocateSelf; 


END METHOD { GiveFirstLoad }; 


ASK METHOD NewDestination ( OUT briefing : BriefingRec; 
IN acftsize : INTEGER; 
OUT assignedaload : BOOLEAN) ; 
VAR 
cleared ; BOOLEAN; 
checkthis : SerialObj; 
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serialsleft : INTEGER; 
assignthisload : SerialObj; 


BEGIN 
serialsleft := ASK seriallist numberIn; 
assignthisload := NILOBJ; 
assignedaload := FALSE; 
NEW (briefing) ; 
cleared™; = FALSE; 
checkthis := ASK seriallist First (); 


IF serialsleft > 0 
REPEAT 
IF ((NOT checkthis.allocated) AND 
(checkthis.minliftsize <= acftsize) ) 


ASK checkthis TO AllocateSelf; 
briefing.dest := checkthis.source; 
briefing.serial := 
checkthis.serialnum; 
briefing.loadsize := 
checkthis.minliftsize; 

cleared := TRUE; 

assignthisload := checkthis; 
assignedaload := TRUE; 


END iE 
checkthis := ASK seriallist Next (checkthis) ; 
UNTIL ((cleared) OR (checkthis = NILOBJ)); 
ELSE 
moreserials := FALSE; 
END IE: 
IF (assignthisload = NILOBJ) 
briefing.dest := NILOBJ; 
briefing.serial := -100; 
cleared := TRUE; 
END IF; 


END METHOD { NewDestination }; 


ASK METHOD Dest royHDC; 
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BEGIN 


EmptyRankedQ (seriallist) ; 
DISPOSE (seriallist) ; 
DISPOSE (SELF) ; 


END METHOD { DestroyHDC }; 


— meee eee eee ie ei aa i lee i ll 


=— = me ee ei ie cP ll el el eee ee i lle 


ASK METHOD CombineLoads (IN briefing : BriefingRec; 
ClUtecomo tied = | BOOLEAN: 


found : BOOLEAN; 
checkthis : SerialObj; 
firstload : SerialObj; 
secondload : SerialObj; 
match : BOOLEAN; 
dest : STRING; 


BEGIN 
Found := FALSE; 
checkthis := ASK seriallist First(); 


IF (checkthis <> NILOBJ) 
REPEAT 
IF (checkthis.serialnum = briefing.serial) 
Feumnd. °-= /LRUE-; 
firstload := checkthis; 
ELSE 
checkthis := ASK seriallist 
Next (checkthis) 
BIND eb: 
UNTIL ((checkthis = NILOBJ) OR (found) ); 
END IF; 


IF (NOT found) 
combined := FALSE; 


ELSE 


IF (briefing.dest = NILOBJ) ; 
dest := briefing.1lz.name; 
ELSE 
dest := briefing.dest.name; 
END IF; 
checkthis := NILOBJ; 
match := FALSE; 
checkthis := ASK seriallist First(); 
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IF (checkthis <> NILOBJ) 
REPEAT 
IF ((checkthis.destination.name = dest) 
AND (checkthis’.source.name = 
firstload.source.name) 
AND (checkthis.minliftsize = 1) 
AND (NOT checkthis al loecatea 


secondload := checkthis; 
Match ss aur. 
ELSE 
checkthis := ASK seriallist 
Next (checkthis) ; 
END IF; 
UNTIL ((match) OR (checkthis = NILOBJ) ) 
BIND ie: s 
IF (match) 
combined := TRUE; 


ASK firstload TO AddPax (secondload.pax) ; 
ASK firstload TO AddCargo (secondload.cargo) ; 
ASK seriallist TO RemoveThis(secondload) ; 
BND Ik: 
B Neer: 


END METHOD { CombineLoads }; 


END OBJECT { HDCObj }; 


{HEHEHE EE FEET HFFA FEE EEE E EE EE FEE FEF E FEE Ete tet et et tettetetes } 


END { IMPLEMENTATION } MODULE { HDCMod }. 


DEFINITION MODULE LZBeach; 


MODULE NAME: LZBeach DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 

Cape wu oMe MODIFIED BY: 
DESCRIPTION : Defines the landing zone/beach objects. 


Tracks the amount of cargo and pax delivered to each LZ. Uses 
the OutputDriver to output this data to the output file. 


FROM global IMPORT LocationxyY; 
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FROM ResMod IMPORT ResourceObj; 
FROM SpotMan IMPORT SpotManoObj ; 
FROM RGlobals IMPORT SHierRecType; 


EXPORTTYPE 
LZBeachObj = OBJECT; FORWARD; 
TYPE 
LZBeachObj = OBJECT; 
name >; STRING; 
location : Locatlonxy: 
paxinzone : REAL; 
totalsorties : INTEGER; 
cargoinzone : REAL; 
fac : SpotManoObj; 
numlandingspots : INTEGER; 
priorcargo : REAL; 
priOnmpax : REAL; 


ASK METHOD ReadData (IN newlz : SHierRecType) ; 

ASK METHOD ObjiInit; 

ASK METHOD ReceiveLoad (IN pax : REAL; 
IN cargo >: REAL; 
IN numserials : INTEGER) ; 

ASK METHOD DestroyLZ; 


END OBJECT { LZBeachObj }; 


END { DEFINITION } MODULE { LZBeachObj }. 


IMPLEMENTATION MODULE LZBeach; 


MODULE NAME: LZBeach DATE WRITTEN: 18 Mar 92 
AUTHOR : S. E. Shaw LAST MODIFIED: 

Capt USMC MODIFIED BY: 
DESCRIPTION : Defines the landing zone/beach objects. 


Tracks the amount of cargo and pax delivered to each LZ. Uses 
the OutputDriver to output this data to the output file. 


FROM global IMPORT LocationxyY, totalserials; 
FROM Statistics IMPORT lastdeliverytime; 
FROM ResMod IMPORT ResourceObj; 

FROM RGlobals IMPORT SHierRecType; 

FROM SimMod IMPORT SimTime; 

FROM Debug IMPORT TraceStream; 


ors 


FROM OutputDriver IMPORT WriteLZData; 


OBJECT LZBeachObj; 


ASK METHOD ObjInit; 


BEGIN 
NEW (fac); 


END METHOD { ObjiInit }; 


ASK METHOD ReadData (IN newlz : SHierRecType) ; 


BEGIN 
name := newlz.TopString; 
location.x := STRTOREAL (newlz.OwnedString[1] ) ; 
location.y := STRTOREAL (newlz.OwnedString([2])j; 


ASK fac TO PaintSpots (name, name, OBJTYPENAME (SELF) , 
numlandingspots) ; 
ASK fac TO SetName (name) ; 


END METHOD { ReadData }; 


ASK METHOD ReceiveLoad (IN pax -: REAL; 
IN cargo >: REAL; 
IN numserials : INTEGER) ; 
BEGIN 
cargoinzone := cargoinzone + cargo; 
paxinzone := paxinzone + pax; 


WriteLZData (pax, cargo); 
INC (totalsorties) ; 
totalserials := totalserials - numserials; 
IF (totalserials = 0) 
lastdeliverytime := SimTime() ; 


END IF; 


END METHOD { ReceiveLoad }; 
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ASK METHOD DestroylLZ; 

BEGIN 
ASK fac TO DestroySpotMan; 
DISPOSE (SELF) ; 


END METHOD { DestroyLZ }; 


END OBJECT { LZBeachObj }; 


END { IMPLEMENTATION } MODULE { LZBeachObj }. 


DEFINITION MODULE LoadProcedures; 


{ ee oS = eee = ee Se 
MODULE NAME: LoadProcedures DATE WRITTEN: BeApr 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 

Capt USMC MODIFIED BY: 


DESCRIPTION : These procedures determine the time required 
to load and unload each serial. 


FROM Transport IMPORT TransObj; 
FROM Attack IMPORT AttackObj; 
TY PE 


PROCEDURE LoadCargo (IN vehicle : TransObj; 
OUT loadtime : REAL); 


PROCEDURE UnhLoadCargo (IN vehicle : TransObj; 
OUT loadtime : REAL); 


PROCEDURE ReArmAcft (IN vehicle : AttackObj; 
OUT rearmtime : REAL); 


END { DEFINITION } MODULE { LoadProcedures }. 
IMPLEMENTATION MODULE LoadProcedures; 


MODULE NAME: LoadProcedures DATE WRITTEN: 3 Apr 92 
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AUTHOR : S. FE. Shaw LAST MODIFIED: 


Capt USMC MODIFIED BY: 


DESCRIPTION : These procedures determine the time required 
to load and unload each serial. 


FROM 
FROM 
FROM 
FROM 
FROM 


sass: 


Transport IMPORT TransObj; 

RandMod IMPORT RandomObj; 

Attack IMPORT AttackObj; 

SimMod IMPORT SimTime; 

global IMPORT InternalStream, ExternalStream, 


CargoStream, RearmTime; 


PROCEDURE LoadCargo (IN vehicle : TransObj; 


OUT loadtime : REAL); 


VAR 
loadtype : STRING; 
pax >: REAL; 
Caxgo >: REAL; 
ptime : REAL; 
ctime : REAL; 
BEGIN 
loadtype := vehicle.serialonboard.1ift; 
pax := vehicle.serialonboard.pax; 
cargo := vehicle.serialonboard.cargo; 
ptime := ASK InternalStream UniformReal (1.0,5.0)+ 
(pax / 100.0) * ASK InternalStream 
UniformReal (1530s) 
ctime := ASK CargoStream Exponential 


END 


(vehicle.cargotime) ; 


IF (loadtype = "INTERNAL") 

loadtime := ((ptime) + (cargo / 1000.0) * ctime) ; 
ELSIF (loadtype = "EXTERNAL") 

loadtime := ASK ExternalStream Exponential 


(vehicle.externaltime) ; 
END IF; 


PROCEDURE { LoadCargo }; 


PROCEDURE UnLoadCargo (IN vehicle : TransObj; 
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OUT loadtime : REAL); 


VAR 
loadtype weoLR ING: 
pax >: REAL; 
cargo >: REAL; 
ptime : REAL; 
ctime REAL: 
BEGIN 
loadtype := vehicle.serialonboard.1lift; 
pax := vehicle.serialonboard.pax; 
cargo := vehicle.serialonboard.cargo; 
ptime := ASK InternalStream UniformReal (1.0, 5.0); 
ctime := ASK CargoStream Exponential 


(vehicle.cargotime) ;; 


IF (loadtype = "INTERNAL") 
loadtime := (ptime) + ((cargo / 1000.0) * ctime); 
ELSIF (loadtype = "EXTERNAL") | 
loadtime := ASK ExternalStream Exponential 


(vehicle.externaltime) ; 
END IF; 


END PROCEDURE { UnLOadCargo }; 


PROCEDURE ReArmAcft (IN vehicle : AttackObj; 
OUT rearmtime : REAL); 
BEGIN 
rearmtime := ASK RearmTime UniformReal (25.0, 60.0); 


END PROCEDURE { ReArmAcft }; 


END { IMPLEMENTATION } MODULE { LoadProcedures }. 


DEFINITION MODULE OutputDriver; 


MODULE NAME: OutputDriver DATE WRITTEN: 4 May 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC MODIFIED BY: 
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DESCRIPTION: Opens all output files, combines files as 
necessary to form the final scenario file, then closes all 
files. 


FROM LZBeach IMPORT LZBeachObj; 
FROM IOMod IMPORT StreamObj, FileUseType (Output) ; 
FROM CATFMod IMPORT CATFObj; 


VAR 
LZrecorder : StreamObj; 
Scenariorecorder : StreamObj; 
StatsRecorder : StreamObj; 
FinalOutputFile : StreamObj; 
EndTimerecorder : StreamObj; 
datestamp : STRING; 


TYES 


PROCEDURE OpenFiles; 

PROCEDURE WriteLZData (IN pax >: REAL; 
IN cargo : REAL); 

PROCEDURE CombineFiles; 

PROCEDURE CloseFiles; 


END { Definition } MODULE { OutputDriver }. 


IMPLEMENTATION MODULE OutputDriver; 
MODULE NAME: OutputDriver DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 5 JunvsZ 
Capt USMC 


DESCRIPTION : Opens all output files, combines files as 
necessary to form the final scenario file, then closes all 
files. 


FROM IOMod IMPORT StreamObj, FileUseType (Output, Input) ; 
FROM UtilMod IMPORT DateTime; 

FROM SimMod IMPORT SimTime; 

FROM CATFMod IMPORT CATFOb); 

FROM RGlobals IMPORT OutputFileName; 

FROM Statistics IMPORT beforejump; 

FROM global IMPORT paxtolift, cargotolift; 
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PROCEDURE OpenFiles; 
BEGIN 


DateTime (datestamp) ; 

NEW (LZrecorder) ; 

ASK LZrecorder TO Open ( OutputFileName +"LZ.out", Output) ; 
ASK LZrecorder TO WriteString (datestamp) ; 


ASK LZrecorder TO WriteString (" "sOutputFileName) ; 

ASK LZrecorder TO WriteLn; 

ASK LZrecorder TO WriteString(" TIME BEFOREJUMP 
JUMP ft AFTERJUMP") ; 


ASK LZrecorder TO WriteLn; 


NEW (Scenariorecorder) ; 

ASK Scenariorecorder TO Open ("Scenario.out", Output) ; 
ASK Scenariorecorder TO WriteLn; 

ASK Scenariorecorder TO WritebLn; 


NEW (EndTimerecorder) ; 
ASK EndTimerecorder TO Open (OutputFileName + "End.out", 


OuUEmUE 
ASK EndTimerecorder TO WriteString (datestamp) ; 
ASK EndTimerecorder TO WriteString (" "+OutputFileName) ; 


ASK EndTimerecorder TO WriteLn; 
ASK EndTimerecorder TO WriteLn; 


NEW (StatsRecorder) ; 

meow otabesRecorder TO Open ("Stats-out", Output) ; 

ASK StatsRecorder TO WriteString("----------------- 
corre Stats-------------------- eS; 

ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteLn; 


END PROCEDURE { OpenFiles }; 


PROCEDURE WriteLZData (IN pax : REAL; 
IN cargo eee AL) 

VAR 

x : REAL; 

pax] ump : REAL; 

cargojump : REAL; 

totaljump : REAL; 
BEGIN 

= Sie time () > 

paxjump := ((pax / paxtolift) /2.0) 

= (( 


cargojump Gargo /meangocollit)/2.0) ; 


hal 


EOtalj]UuMp 3 = =eaxaune 


+ cargojump; 


ASK LZrecorder TO WriteString (REALTOSTR (x) +" To. 
REALTOSTR (beforejump) +" "+REALTOSTR (totaljump) ) ; 
beforejump := beforejump + totaljump; 


ASK LZrecorder TO WriteString(" 


ASK LZrecorder TO Wr 


END PROCEDURE { WriteLZD 


PROCEDURE CloseFiles; 


BEGIN 
ASK LZrecorder TO Cl 
ASK EndTimerecorder 
ASK Scenariorecorder 
ASK StatsRecorder TO 


CombineFiles; 

DISPOSE (LZrecorder) 
DISPOSE (Scenariorec 
DISPOSE (StatsRecord 
DISPOSE ra nalomepuc 


END PROCEDURE { CloseFil 


PROCEDURE CombineFiles; 


VAR 
placeholder =e ING 


BEGIN 


iteLn; 


ata }; 


ose; 

TO Close; 
TO Close; 
Close; 


Onder 
er); 
File): 


es }; 


e 
I 


"+REALTOSTR (beforejump) ) ; 


ASK Scenariorecorder TO Open ("Scenario.out", Input 
ASK StatsRecorder TO Open ("Stats.out", Input); 


NEW (FinalOutputFile 

ASK FinalOutputFile 
CulepuE I 

ASK FinalOutputFile 

ASK FinalOutputFile 

ASK FinalOutputFile 

ASK FinalOutputFile 


yes 


TO Open (OutputFileName+".txt", 


TO WriteString (datestamp) ; 


TO WriteString (" 
TO WriteLn; 
TO WriteLn; 


oe 


"+OutputFileName) ; 


WHILE ( NOT Scenariorecorder.eof) 
ASK Scenariorecorder TO ReadLine (placeholder) ; 
ASK FinalOutputFile TO WriteString (placeholder) ; 
ASK FinalOutputFile TO WriteLn; 


END WHILE; 


ASK FinalOutputFile TO WriteLn; 
ASK FinalOutputFile TO WriteLn; 


ASK Scenariorecorder TO Close; 


ASK StatsRecorder TO Open ("Stats.out", Input); 


WHILE ( NOT StatsRecorder.eof) 


ASK 
ASK 
ASK 
END WHILE; 


StatsRecorder TO ReadLine (placeholder) ; 
FinalOutputFile TO WriteString (placeholder) ; 
FinalOutputFile TO WriteLn; 


ASK StatsRecorder TO Close; 


ASK Scenariorecorder TO Delete; 
ASK StatsRecorder TO Delete; 
ASK FinalOutputFile TO Close; 


END PROCEDURE { CombineFiles }; 


END { IMPLEMENTATION } MODULE { OutputDriver }. 


DEFINITION MODULE Procedures; 


MODULE NAME: 
AUTHOR: 


DESCRIPTION 


Procedures DATE WRITTEN: 18 Mar 92 
S. E. Shaw LAST MODIFIED: 
Capt > USMEe MODIFIED BY: 


These 2 procedures assign the source and 


aeseiniatiron to each Serial as it 18 read in. This’ information 


is entered as 


a STRING and must be converted to the 


appropriate object. 


FROM HDCMod IMPORT HDCObj; 
FROM CATFMod IMPORT CATFObj; 


TYPE 


PROCEDURE FindSource (INOUT HDC : HDCObj; 


oe 


IN GAGE wCATEOD 


PROCEDURE FindDestination (INOUT HDC : HDCObj; 


IN CATF 3: CATFOb]); 


END { DEFINITION } MODULE { Procedures }. 


IMPLEMENTATION MODULE Procedures; 


MODULE NAME: 
AUTHOR. 


DESCRIPTION 


Procedures DATE WRITTEN: 18 Mar 92 
S. E. Shaw LAST MODIFIED: 
Capt USMC MODEZELED By: 


These 2 procedures assign the source and 


destination to each serial as i€ is read in. This i2ntomnae.em 
is entered as a STRING and must be converted to the 
appropriate object. 


FROM ARGMod IMPORT ARGObj ; 

FROM LZBeach IMPORT LZBeachObj ; 
FROM SerialMod IMPORT SerialObj; 
FROM HDCMod IMPORT HDCObj; 

FROM global IMPORT DeBug; 

FROM CATFMod IMPORT CATFObj; 


PROCEDURE FindDestination (INOUT HDC : HDCObj; 


EN GALE) = 7 CATEGORD 


VAR 
gohere STRING; 
checkzone LZBeachObj; 
dropoff LZBeachObj ; 
load SerialObj; 
gooddest BOOLEAN ; 
a) INTEGER; 
BEGIN 
1 := 0: 
load := ASK HDC.seriallist First(); 


WHILE load <> NILOBJ 


ING (a); 
gohere := load.goto; 
gooddest := FALSE; 
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checkzone :=] ASK CATF.lzbeachlist First (); 


REPEAT 
IF gohere = checkzone.name 
gooddest := TRUE; 
Guepeor:ss— checkzone; 
BND sir ; 
checkzone := ASK CATF.1lzbeachlist Next 
(checkzone) ; 
UNTIL (gooddest) ; 


IF gooddest 
ASK load TO SetDestination (dropoff) ; 


ELSE 
OUTEUIwe Hoe GRROR IN FINDESTINATION ") ; 
CULE Load gore, “;lload-gotrom," ", 
Peagd.semlalnum,’ 6! ,lOad.cargo," ", 
Read).wax, Val loadGd.prrority, " 
Te levees ikabinie)) | 
BND =F 
load := ASK HDC.seriallist Next (load); 


END WHILE; 


END PROCEDURE { FindDestination }; 


PROCEDURE FindSource (INOUT HDC : HDCObj; 
DNSGA TE Ss CAlrOba))- 


VAR 
fromhere : STRING; 
checkship : ARGODJ; 
emigin : ARGObJ; 
goodsource : BOOLEAN; 
load weSertaloODy, 
al we NN LEGER: 
BEGIN 
load := ASK HDC.seriallist First(); 
1 := 0; 
WHILE load <> NILOBJ 
me (a): 
Premiere =:— load.gofrom; 
goodsource := FALSE; 
Si ceksitms—shs5k CATE.shiplist First () ; 
REPEAT 


IF fromhere = checkship.name 
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goodsource = —"iRUE, 
origin := checkship; 
END IF; 
checkship := ASK CATF.shiplist 
Next (checkship) ; 
UNTIL (goodsource) ; 


IF goodsource 
ASK load TO SetSource (origin); 


ELSE 

OUTPUT ("HDC ERROR IN FINDSOURCE Sc. 

OUTPUT (load.goto,"  "loadegertrcm aaa 
load.serialnum," ", load. carge; awe 
load .pax," “loader ommsry. ” 

i"  LoOddeia tem 
END IF; 
Origin +— NLEOba- 
load := ASK HDC.seriallist Next (load); 
END WHILE; 


END PROCEDURE { FindSource }; 


END { IMPLEMENTATION } MODULE { Procedures }. 


DEFINITION MODULE ReadLst; 


MODULE NAME: ReadLst DATE WRITTEN: O1 Mar 92 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODIFIEBV Ex S. E. Shaw 
Capt USMC 


DESCRIPTION : Reads the input data files. Puts all data 
into arrays for later use. 


FROM RGlobals IMPORT SHArrayType, 
FileNameType; 


PROCEDURE ReadLst (INOUT SHArray : SHArrayType; 
IN FileName : FileNameType) ; 
END { DEFINITION } MODULE { ReadLst }. 


IMPLEMENTATION MODULE ReadLst; 
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MODULE NAME: ReadLst DATE WRITTEN: O1 Mar 92 


AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODmr ED BY: Ss. E. Shaw 
Capt USMC 


DESCRIPTION : Reads the input data files. Puts all data 
mito arrays for later use. 


FROM IOMod IMPORT StreamObj, FileUseType (Input) ; 
FROM RGlobals IMPORT SHArrayType, 
FileNameType; 
FROM ReadSH IMPORT ReadSH; 
FROM global IMPORT DeBug; 


PROCEDURE ReadLst (INOUT SHArray : SHArrayType; 
IN FileName : FileNameType) ; 


File : StreamObj; 
numberOfSH : INTEGER; 
1 : INTEGER; 
error : BOOLEAN; 
string  : STRING; 


BEGIN 
NEW (File) ; 
ASK File TO Open(FileName, Input); 


ASK File TO Readint (numberOfSH) ; 
ASK File TO ReadLine(string) ; 


NEW (SHArray, 1..numberOfSH) ; 


Beha — ee Om mumioetaO fou 
ReadSH(File, SHArray[i], error) ; 


END FOR; 
END PROCEDURE { ReadLst }; 


END { IMPLEMENTATION } MODULE { ReadLst }. 


DEFINITION MODULE ReadSeed; 


MODULE NAME: ReadSeed DATE WRITTEN: Ole Mains 92 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODIFIED BY: 5 eae onaw 
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Capt USMC 
DESCRIPTION : Used to read the initial seeds for the 
random variable streams. 
FROM RGlobals IMPORT FileNameType; 


PROCEDURE ReadSeed() : INTEGER; 
PROCEDURE ReadTheSeeds (IN FileName : FileNameType) ; 


END { DEFINITION } MODULE { ReadSeed }. 


IMPLEMENTATION MODULE ReadSeed; 


MODULE NAME: ReadSeed DATE WRITTEN: O01 Mar soz 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODIFIED BY: S. E. Shaw 
Capt USMC 
DESCRIPTION : Used to read the initial seeds for the 
random variable streams. 
nm ermer | ee ee ee ee \ 
FROM global IMPORT DeBug; 
FROM IOMod IMPORT FileUseType (Input) , 
StreamOb] ; 
FROM RGlobals IMPORT FileNameType, 
SeedCount, SeedArray; 
(== +2222 eee enone eect ee ence cee eet eee eee 
PROCEDURE ReadSeed () INTEGER; 
eee eee 
BEGIN 
IF (SeedCount > HIGH(SeedArray) ) 
OUTPUT ("Ran out of seeds with count = " + 


INTTOSTR (SeedCount) ) ; 
OUTPUT ("Ran out of seeds, make more "); 


Reo S 
RETURN (0) ; 
ELSE 
IF (SeedCount <= Q) 
SeedCount := 1; 
END IF; 


INC (SeedCount) ; 
RETURN (SeedArray [SeedCount - 1]); 
END IF; 


END PROCEDURE; 


oS 


file : StreamObj; 
str >: STRING; 
BB : INTEGER; 
NumberOfSeeds : INTEGER; 


BEGIN 
NEW (file) ; 
ASK file TO Open(FileName, Input) ; 
ASK file TO ReadInt (NumberOfSeeds) ; 
NEW (SeedArray, 1..NumberOfSeeds) ; 


FOR 1 := 1 TO NumberOfSeeds 
ASK file TO ReadInt (SeedArray [i] ) ; 
ASK file TO ReadLine(str) ; 
END FOR; 
END PROCEDURE; 


END { IMPLEMENTATION } MODULE { ReadSeed }. 


DEFINITION MODULE ReadSH; 


MODULE NAME: ReadSH DATE WRITTEN: ©i Mar 92 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODIFIED BY: S. E. Shaw 
Cape USMC 


DESCRIPTION : Reads the data arrays from the input files. 


FROM RGlobals IMPORT SHierRectType; 
FROM IOMod IMPORT StreamObj; 


PROCEDURE ReadSH( IN File : Stream0Obj; 
OUT SHeirRec : SHierRecType; 
OUT error : BOOLEAN) ; 


END { DEFINITION } MODULE { ReadSH }. 
IMPLEMENTATION MODULE ReadSH; 


MODULE NAME: ReadSH DATE WRITTEN: OA Ma Eo 2 
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AUTHOR: M. Bailey LAST MODIFIED: 


DESCRIP T LO. 


Prof NPGS MODIFIED BY: 


18 Mar 92 
S. E. Shaw 
Capt Ustie 


Reads the data arrays from the input files. 


FROM IOMod IMPORT StreamObj, FileUseType (Input) ; 
FROM RGlobals IMPORT SHierRecType; 

FROM global IMPORT DeBug; 

FROM IOMod IMPORT ReadKey; 


PROCEDURE ReadSH( IN File : Stream0Obj; 


OUT SHierRec : SHierRecType; 
QU emmor : BOOLEAN) - 


TYPE 
StringRecType = RECORD 
String <: SERING, 
Next : StringRecType; 
END RECORD; 
VAR 
string ; STRING; 
numberOfStrings : INTEGER; 
StringRec, OldStringRec : StringRecType; 
first : StringRecType; 
arrow >: STRING; 
stringRec : StringRecType; 
1 >: INTEGER; 
Z co CHAR 
BEGIN 
NEW (SHierRec) ; 


ASK File TO ReadString (SHierRec.TopString) 
NEW (StringRec) ; 

numberOLSt rings <a, 

ELIESE s=JStringhec, 


ASK File TO ReadString (arrow) ; 


IF arrow <> "->" 
OUTPUT ("file not formatted correctly") ; 
error := TRUE; 
RETURN; 
ELSE 
error := FALSE; 
END IF; 


WHILE string <> "\\" 
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° 
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ASK File TO ReadString(string) ; 


ieeseirac) =" a 
ASK File TO ReadLine(string) ; 
ELSE 
Oldsemingkec. — StringRec; 
StringRee. String := string; 
NEW (StringRec) ; 
OldStringRec.Next := StringRec; 
numberOfStrings := numberOfStrings + 1; 
END IF; 
END WHILE; 


ASK File TO ReadLine (string) ; 


IF (numberOfStrings > 0) AND NOT error 
NEW (SHierRec.OwnedString, 1..numberOfStrings - 2); 


stringRec := first; 

LOket leno mumberOrStrings - 2 
SHierRec.OwnedString[i] := stringRec.String; 
stringRec := stringRec.Next; 

END FOR; 

JSNED) SL Ieh 


END PROCEDURE { ReadsSH }; 


END { IMPLEMENTATION } MODULE { ReadSH }. 


DEFINITION MODULE RGlobals; 


MODULE NAME: RGlobals DATE WRITTEN: O1 Mar 92 
AUTHOR: M. Bailey LAST MODIFIED: 18 Mar 92 
Prof NPGS MODIFIED BY: S. E. Shaw 
Capt USMC 


DESCRIPTION : Contains global variables primarily used for 
the input of data. 


CONST 
MasterFileName = "OPplan.dat"; 


TYPE 
FileNameType = STRING; 
SArrayType = ARRAY INTEGER OF STRING; 


SHierRecType = RECORD 


EOS 


TopString ©) SiRitts- 
OwnedString : SArrayType; 
END RECORD; 


SHArrayType = ARRAY INTEGER OF SHierRecType; 
SeedArrayType = ARRAY INTEGER OF INTEGER; 


VAR 

ShipSHArray : SHArrayType; 
SpotSHArray s SHALL ay type: 
AcftSHArray >: SHArrayType; 
LZSHArray : SHArrayType; 
SerialSHArray : SHArrayType; 
SeedArray : SeedArrayType; 
OutputFileName : FileNameType; 
SeedCount : INTEGER; 


END { DEFINITION } MODULE { RGlobals }. 


DEFINITION MODULE SerialMod; 


MODULE NAME: SerialMod DATE WRITTEN: 18 Mar 92 
AUTHOR: S. EB. Shaw LAST MODIFIED: 
Capt ~ Use MODIFIED BY: 


DESCRIPTION : Defines the serial objects to be transported 
in the simulation. 


FROM LZBeach IMPORT LZBeachObj; 
FROM ARGMod IMPORT ARGObj; 
FROM RGlobals IMPORT SHierRectType; 


EXPORTTYPE 
SerialObj = OBJECT; FORWARD; 
TYPE 
CargoLiftType = (internal, external); 


SerialOby = OBJECT; 


destination : LZBeachObj ; 
source : ARGOb]; 
serialnum : INTEGER; 
Carge@ : REAL; 

pax >: REAL; 

joe Wepalh e : INTEGER; 
lifttype : STRING; 
goto : STRING; 
gofrom : Jo cLRING, 
hevefete ; oLR UNG: 
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allocated ;: BOOLEAN; 
minliftsize : INTEGER; 
externalspeed : REAL; 


ASK METHOD ReadData (IN newserial : SHierRecType) ; 
ASK METHOD SetDestination (INOUT to : LZBeachObj) ; 
ASK METHOD SetSource (INOUT from : ARGObD)) ; 

ASK METHOD AllocateSelf; 

ASK METHOD DeAllocateSelf; 

ASK METHOD DestroySerial; 

ASK METHOD AddPax (IN newpax : REAL) ; 

ASK METHOD AddCargo (IN newcargo : REAL) ; 


END OBJECT { SerialObj }; 


END { DEFINITION } MODULE { SerialMod }. 


IMPLEMENTATION MODULE SerialMod; 


i ee sm i i ell El lc Pr rll el lll el ell elles cll rel re clr re hlCUCc reehlCC w@PrhlUC rerhlCUC rechlUCUCcresrhlUCc rechlUCUCc re hlcr rl Cc llc hl Ur w wrhUCC wrhUCC wWwrhUC MmwrlhUC MmrlhUC MmwrlhLUCC wWwrlhUC MWwrlhUC MWwrlLUC MPwLhUlc hw PlhlhlCUr Mh 


MODULE NAME: SerialMod DATE WRITTEN: doe Main 92 
AUTHOR: Ss. Heeshaw LAST MODIFIED: 
Cape, UsME MODIFIED BY: 


DESCRIPTION : Defines the serial objects to be transported 
in the simulation. 


FROM ARGMod IMPORT ARGObj; 

FROM LZBeach IMPORT LZBeachObj; 
FROM RGlobals IMPORT SHierRecType; 
FROM Debug IMPORT TraceStream; 


VAR 
placeholder : STRING; 


OBJECT SerialObj; 


ASK METHOD ReadData (IN newserial : SHierRecType) ; 


BEGIN 
serialnum := STRTOINT (newserial.OwnedString[1]); 
goto := newserial.OwnedString([2]; 
gofrom := newserial.OwnedString [3]; 
cargo := STRTOREAL (newserial.OwnedString[4]); 
pax := STRTOREAL (newserial.OwnedString[5]); 
priority := STRTOINT (newserial.OwnedString[6]); 
lift := newserial.OwnedString[7] ; 
minliftsize := STRTOINT(newserial.OwnedString([8]); 


externalspeed := STRTOREAL (newserial.OwnedString[9]) ; 
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END METHOD { ReadData }; 


ASK METHOD SetSource (INOUT from : ARGOb)) ; 
BEGIN 
source := from; 


END METHOD { SetSource }; 


=e ese we we we ww =F Bs BSF BSF Bs=F Bs ws ws s&s f= |—-§ ws we B|] 2£| BS ws |—§ BF Bf BFS Bf Bf 2£fF BV8FsB BF] BF] BFS Bf KF§ fF BF BS BS 2S BSF we ws BF BS B|S |] |] 2& 2 ff] |—§ s&s Bf se = = = 


ASK METHOD SetDestination (INOUT to : LZBeachOb}) ; 
BEGIN 
destination := to; 


END METHOD { SetDestination }; 


=a es ws we wF we we BF 2S BS BS BS 2S 2S BS 2S BS BS 2S BS 2S —=§ fF 2e |—§ |—§ fs 2& —§ =§ |§ = |§ |§— =F we =F FB wee ese ee ewe ew ow wre Fe BF BF BF BF BF BF B|] @8& Fe | |= —=— = 


ASK METHOD DeAllocateSelf; 
BEGIN 
allocated := FALSE; 


END METHOD; 


ASK METHOD AllocateSelf; 
BEGIN 
allocated := TRUE; 


END METHOD; 


_eFee = = = = | |] 2S fF fF |_| Bf =—§ fF fF se se we we wesw = = we we =e BS Se — ww ww Bw Be SB BSF Be |—$ HK— BS VB BS BS Bf B|S Bf] HS BS BS Bf] BF Bf fF se se fF |= = = 


ASK METHOD DestroySerial; 
BEGIN 
destination := NILOBJ; 
source := NILOBJ; 
DISPOSE (SELF) ; 


END METHOD { DestroySerial }; 
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ASK METHOD AddPax (IN newpax : REAL); 
BEGIN 
pax := pax + newpax; 


END METHOD { AddPax}; 


ASK METHOD AddCargo (IN newcargo : REAL); 
BEGIN 
cargo := cargo + newcargo; 


END METHOD { AddCargo}; 


END OBJECT { SerialObj }; 


END { IMPLEMENTATION } MODULE { SerialMod }. 


DEFINITION MODULE SpotMan; 


MODULE NAME: SpotMan DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 

Capt USMC MOD T babED 3x; 
DESCRIPTION : This object controls the landing and 


launching of the TransportCrfat. It tracks the allocation and 
use of each landing spot. 


FROM GrpMod IMPORT QueueObj, RankedObj; 
FROM SpotObject IMPORT SpotObj; 
TYPE 
StarboardDObj = OBJECT (RankedOb}) ; 
OVERRIDE 
ASK METHOD Rank (IN a, b : ANYOBJ) : INTEGER; 
END OBJECT { StarboardDObj }; 


SpotManObj = OBJECT 


name >: STRING; 
StarboardD : StarboardDObj; 
spotsavail : QueueObj; 


OS 


awalitinglaunch : QueueObj; 


ASK METHOD ObjiInit; 
ASK METHOD SetName(IN newname : STRING); 
ASK METHOD PaintSpots (IN shiptype : STRING; 
IN shipname : STRING; 
IN spottype : STRING; 
OUT numspots : INTEGER) ; 
ASK METHOD DestroySpotMan; 


END OBJECT { SpotManagerObj }; 


END { DEFINITION } MODULE { SpotManager }. 


IMPLEMENTATION MODULE SpotMan; 


MODULE NAME: SpotMan DATE WRETTEN-: 18 Mar 92 
AUTHOR : Ss. E.onhaw LAST MODIFIED: 

Caper ume MODIFIED BY: 
DESCRIPTION : This object controls the landing and 


launching of the TransportCraft. It tracks the allocation and 


use of each landing spot. 


FROM ResMod IMPORT ResourceObj; 

FROM GrpMod IMPORT QueueObj; 

FROM FindSHRec IMPORT FindSHRec; 

FROM RGlobals IMPORT SHierRecType, SpotSHArray, 

FROM SpotObject IMPORT Spot0Obj; 

FROM global IMPORT EmptyRankedQ, EmptyQ, repetition; 
FROM Transport IMPORT TransObj; 


FROM Statistics IMPORT lzspotstatlist, shipspotstatlist, 


spotstatrec; 


OBJECT StarboardDObj; 


ASK METHOD Rank (IN a, b : ANYOBJ) : INTEGER; 
VAR 

acita, acfttbe@eerlransObi-> 
BEGIN 

acfta := a; 

ACheEOm: = l- 


IF acfta.fuelonboard «< acftb.fuelonboard 
RETURN -1; | 


106 


ELSIF acfta.fuelonboard > acftb.fuelonboard 
RETURN 1; 

ELSE 
RETURN 0; 

ENDS i: 


END METHOD { Rank }; 


END OBJECT { StarboardDObj }; 


{HEEFT HHEE THEE EE TE FEF EEF EET E TT EEEEET HHH EEE EH HH Ett Hee tess } 


OBJECT SpotManObj; 


ASK METHOD ObjInit; 

BEGIN 
NEW (awaitinglaunch) ; 
NEW (StarboardD) ; 
NEW (spotsavail) ; 


END METHOD { ObjInit }; 


ASK METHOD PaintSpots (IN shiptype : STRING; 
IN shipname : STRING; 
IN spottype : STRING; 
OUT numspots : INTEGER); 


VAR 
spotdata : SHierRecType; 
spot ; SPOtObar, 
a : INTEGER; 
record : Spotstatrec; 
BEGIN 


FindSHRec (SpotSHArray, shiptype, spotdata) ; 
numspots := STRTOINT (spotdata.OwnedString([1]); 


FOR i := 1 TO numspots 
NEW (spot) ; 
ASK spot TO SetNumber (i); 
ASK spot TO Size (STRTOINT(spotdata. 
OwnedString[i+1])); 


Ley 


ASK spotsavail TO Add (spot) ; 


iP S( seperti t none — a) 
NEW (record) ; 
record.name := shipname; 
record.number := i; 
IF (spottype = "ARGObj") 
ASK shipspotstatlist TO Add (record) ; 
ELSE 
ASK lzspotstatlist TO Add (record) ; 
BEND IE: 
END IF; 


END FOR; 


END METHOD { PaintSpots }; 


ASK METHOD SetName(IN newname : STRING); 
BEGIN 
name := newname; 


END METHOD { SetName }; 


ASK METHOD DestroySpotMan,; 

VAR 
Spot > -s spetOba - 

BEGIN 
EmptyRankedQ (starboardD) ; 
DISPOSE (starboardD) ; 
EmptyQ (awaitinglaunch) ; 
DISPOSE ( awaitinglaunch) ; 


spot := ASK spotsavail First (); 

WHILE ( spot <> NILOBJ) 
ASK spotsavail TO RemoveThis (spot) ; 
ASK spot TO DestroySpot; 
spot := ASK spotsavail First (); 

END WHILE; 


DISPOSE (spotsavail) ; 
DISPOSE (SELLE); 


END METHOD { DestroySpotMan }; 


mei 
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END OBJECT { SpotManagerObj }; 


END { IMPLEMENTATION } MODULE { SpotMan }. 


DEFINITION MODULE SpotObject; 


MODULE NAME: Spot0Obj DATE WRITTEN: 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC MODIFIED BY: 


23 Mar 92 


DESCRIPTION : Defines the landing spots for the ARGObj and 


for the LZBeachObj. 


oe eee ee See a ene } 
FROM StatMod IMPORT RStatObj; 
ce E; 
Beotcob)] = OBJECT 
spotnumber : INTEGER; 
spotsize : INTEGER; 
open : BOOLEAN; 
acftonspot : STRING; 
acftsidenum : INTEGER; 
inuseat : REAL; 
landings : INTEGER; 
allocatedtime : LMONITORED REAL BY RStatObj; 


allocatedtimestats : RStatObj; 


ASK METHOD ObjInit; 


ASK METHOD SetNumber (IN i : INTEGER); 


ASK METHOD Size (IN i : INTEGER) ; 


ASK METHOD Allocate (IN acft : STRING; 


INTEGER) ; 
ASK METHOD DeAllocate; 
ASK METHOD DestroySpot; 

END OBJECT { SpotObj }; 


END { DEFINITION } MODULE { SpotObj }. 


IMPLEMENTATION MODULE SpotObject; 


IN side 


MODULE NAME: SwOEOIn DATE WRITTEN: 24 Mar 92 
AUTHOR: SS. Bb owshaw LAST MODIFIED: 
Capt see sMe MODIFIEDr BY: 


DESCRIPTION : Defines the landing spots for the ARGObj and 
for the LZBeachObj. 


FROM SimMod IMPORT SimTime; 
FROM Debug IMPORT TraceStream; 


OBJECT SpocOba; 


ASK METHOD ObjInit; 
BEGIN 
NEW (allocatedtimestats) ; 
ADDMONITOR (allocatedtime, allocatedtimestats) ; 


END METHOD { ObjInit }; 


ASK METHOD SetNumber (IN 1 : INTEGER); 
BEGIN 
spotnumber := 1; 


END METHOD { SetNumber }; 


ASK METHOD Size (IN 1: INTEGER) ; 
BEGIN 

spotsize := 1; 

ASK SELF TO DeAllocate; 


END METHOD { Size }; 


ASK METHOD Allocate (IN acft : STRING; IN side : INTEGER) ; 
BEGIN 

INC (landings) ; 

inuseat := SimTime() ; 

open := FALSE; 

acCEEONSDOt *=— acre. 
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acftsidenum := side; 


END METHOD { Allocate }; 


ASK METHOD DeAllocate; 


BEGIN 
allocatedtime := SimTime() - inuseat; 
open := TRUE; 


END METHOD { DeAllocate }; 


ASK METHOD DestroySpot; 
BEGIN 
DISPOSE (SELF); 


END METHOD { DestroySpot }; 


END OBJECT { SpotOb3j }; 


END { IMPLEMENTATION } MODULE { SpotObj }. 


DEFINITION MODULE SpotProcedures; 


MODULE NAME: SpotProcedures DATE WRITTEN: 24 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC 


DESCRIPTION : The procedures used to allocate, deallocate 
which SpotObjects are in use, which are available for use. 


FROM Transport IMPORT TransObj; 
FROM SpotObject IMPORT Spot0Obj; 
FROM HDCMod IMPORT HDCObj; 

FROM SpotMan IMPORT SpotManObj; 


TYPE 


PROCEDURE InitialLaunch (IN requestor : TransObj; 
OUT available : BOOLEAN) ; 


riaiae 


PROCEDURE GetShipSpot (IN requestor : TransObj; 
OUT available : BOOLEAN) ; 


PROCEDURE GetLZSpot (IN requestor : TransObj; 
OUT available : BOOLEAN) ; 


PROCEDURE GetSpot (IN requestor : TransObj; 
IN controller # SpotManObar 
OUT available : BOOLEAN) ; 


PROCEDURE GiveBackShipSpot (IN requestor : TransObj) ; 
PROCEDURE GiveBackLZSpot (IN requestor : TransObj); 


PROCEDURE FindSpot (IN requestor : TransObj; 
IN controller : SpotManObj; 
OUT spot : SpotObj); 


END { DEFINITION } MODULE { SpotProcedures }. 


IMPLEMENTATION MODULE SpotProcedures; 


MODULE NAME: SpotProcedures DATE WRITTEN: 24 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC 


DESCRIPTION : The procedures used to allocate, deallocate 
which SpotObjects are in use, which are available for use. 


FROM Transport IMPORT TransObj; 
FROM SpotObject IMPORT SpotObj; 
FROM HDCMod IMPORT HDCObj; 

FROM SpotMan IMPORT SpotManoObj ; 
FROM SimMod IMPORT SimTime; 
FROM Debug IMPORT TraceStream; 


TYPE 
PROCEDURE InitialLaunch (IN requestor : TransObj; 
OUT available : BOOLEAN); 
VAR 
checkspot : SpotObj; 
al : INTEGER; 
controller : SpotManObj; 
BEGIN 


lez 


controller := requestor.mymother.airboss; 


1 := 1; 

available := FALSE; 

checkspot := ASK controller.spotsavail First(); 
REPEAT 


IF ((checkspot.open) AND ( checkspot.spotsize >= 
requestor.spotsizereqd) ) 
available := TRUE; 
ASK checkspot TO Allocate (requestor.name, 
requestor.sidenumber) ; 


ELSE 
checkspot := ASK controller.spotsavail 
Next (checkspot) ; 
END IF; 
LNG Ci) 


UNTIL ((1 > ASK controller.spotsavail numberIn) OR 
(available) ); 
IF NOT available 
ASK controller.awaitinglaunch TO Add(requestor) ; 
END IF; 


END PROCEDURE { InitialLaunch }; 


PROCEDURE GetShipSpot (IN requestor : TransObj; 
OUT available : BOOLEAN) ; 


VAR 
controller : SpotManObj; 
BEGIN 
controller := requestor.destination.airboss; 


GetSpot (requestor, controller, available); 


END PROCEDURE { GetLzSpot }; 


PROCEDURE GetLZSpot (IN requestor : TransObj; 
OUT available : BOOLEAN) ; 


VAR 
controller : SpotManObj; 
BEGIN 
controller := requestor.serialonboard.destination.fac; 


GetSpot (requestor, controller, available) ; 


14.3 


END PROCEDURE { GetLZSpot }; 


—_ = = = 2 ee ee PP Pe |e Pe | | | |— | BSF BS BS BS] BS BS BS BS HS BS 2S |] |—§ —§ B= Ss BSF — w= B= BF =F ws Bs ws w= SF SF = SB BSB |S BS |S |S |] |] ws | = = 


PROCEDURE GetSpot (IN requestor : TransObj; 
IN controller: SpeeMancebn - 
OUT available : BOOLEAN) ; 


VAR 
checkspot : SpotObj; 
Bi : INTEGER; 
BEGIN 
eae ele 
available := FALSE; 
checkspot := ASK controller.spotsavail First (); 
REPEAT 


IF ((checkspot.open) AND ( checkspot.spotsize >= 
requestor.spotsizereqd) ) 
available := TRUE; 
ASK checkspot TO Allocate (requestor.name, 
requestor.sidenumber) ; 


ELSE 
checkspot := ASK controller. spotsavail 
Next (checkspot) ; 
END IF; 
PNG 2 (ake 


UNTIL ((1 > ASK controller.spotsavail numberiIn) OR 
(available) ); 
IF NOT available 
ASK controller.starboardD TO Add (requestor) ; 
ENDS ILE: 


END PROCEDURE { GetSpot }; 


_—-_— —-= se 2s fs 2s =F BFS 2S 2S 2s 2 2 ff] 2 2 2 2 2S Sf S| Ss BS BS Bf — &—&— ws & &—& = & = = BF BSF fF BF Bf BS BF fs BF fs BS fs BS BS fF se SF SF Ss fF fF ff f2 £2 —|- = 
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PROCEDURE GiveBackShipSpot (IN requestor : TransObj) ; 
VAR 

spot 7 Speeeba 

landacft s TPransObge 

launchacft : TransObj; 

waiting : INTEGER; 

controller : SpotManObj; 

See : INTEGER; 

launchone : BOOLEAN; 

landone : BOOLEAN; 
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BEGIN 


controller := requestor.destination.airboss; 
FindSpot (requestor, controller, spot); 
launchone := FALSE; 

landone := FALSE; 


ASK spot TO DeAllocate; 


IF (ASK controller.awaitinglaunch numberIn >= 1) 


launchacft := ASK controller.awaitinglaunch 
First Gr 
ia. =- 1: 
REPEAT 
IF (spot.spotsize >= launchacft.spotsizereqd) 
launchone := TRUE; 


Titieweavlnechacte LO Spot; 
ASK spot TO Allocate (launchacft.name, 
launchft.sidenumber) ; 
BAEL: 

BEND IF: 

T NG we 

launchacft := ASK controller.awaitinglaunch 

Next (launchac£t) ; 
UNTIL ((1 > ASK controller.awaitinglaunch numberIn) 
OR (launchone) ); 
END IF; 


IF launchone 
ASK controller.awaitinglaunch TO 
RemoveThis (launchacft) ; 
END IF; 


IF ((ASK controller.starboardD numberIn >= 1) AND 
( NOT launchone) ) | 
landacft := ASK controller.starboardD First(); 
J := 1; 


REPEAT 
IF(spot.spotsize >= landacft.spotsizereqd) 
landone := TRUE; 
IF (NOT landacft.shutdown) 
TELL landacft TO Load; 
END IF; 
ASK spot TO Allocate (landacft.name, 
landacft.sidenumber) ; 
Poles 
END IF; 
ENG eG. 
landacft := ASK controller.starboardD 
Next (landacft) ; 


iL te) 


END 


UNTIL ((j > ASK controller.starboardD numberIn) OR 
(landone) ); 
END 2E4 


IF landone 
ASK controller. starboardhs Lo 
RemoveThis (landacft) ; 

BND TE; 


IF ((NOT launchone) AND (NOT landone) ) 
ASK spot TO DeAllocate; 
END iE: 


PROCEDURE { GiveBackSpot }; 


PROCEDURE GiveBackLZSpot (IN requestor : TransObj) ; 
VAR 
spot Se Seley] ¢ 
landacft > Transobar 
launchacft : TransObj; 
waiting . : INTEGER; 
controller : SpotManObi; 
BEGIN 
controller := requestor.serialonboard.destination. fac; 


FindSpot (requestor, controller, spot); 
ASK spot TO DeAllocate; 


IF (ASK controller.awaitinglaunch numberIn >= 1) 
launchacft := ASK controller.awaitinglaunch 
Remove () ; 
TELL Jaunchac#te TO Soot; 
ASK spot TO Allocate (launchacft.name, 
launchacft.sidenumber) ; 


ELSIF (ASK controller.starboardD numberIn >= 1) 
landacft := ASK controller.starboardD Remove () ; 
TELL landacft TO Unload; 

ASK spot TO Allocate (landacft .name, 
landacft.sidenumber) ; 


ELSE 
ASK spot TO DeAllocate; 


END IF; 
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END PROCEDURE { GiveBackSpot }; 


PROCEDURE FindSpot (IN requestor : TransObj; 
IN controller : SpotManObj; 
OUT spot : SpotObj) ; 


VAR 
thisspot : BOOLEAN; 
checkspot ¢ SPCEOb] ; 
at : INTEGER; 
BEGIN 
Zt t= 1; 
thisspot := FALSE; 
checkspot := ASK controller.spotsavail First (); 
REPEAT 


IF ((checkspot.acftonspot = requestor.name) AND 
(checkspot.acftsidenum = requestor.sidenumber) ) 
Bhasspet == TRUE; 
spot := checkspot; 

ELSE — 
checkspot := ASK controller.spotsavail 

Next (checkspot) ; 


ENV IF; 
TG); 

UNTIL ((i > ASK controller.spotsavail numberIn) OR 
Ge SSDOE ys; 


IF ((NOT thisspot) AND (showerrors) ) 
ASK TraceStream TO WriteString 
("NO MATCH FOUND IN FindSpot****") ; 
END IF; 


END PROCEDURE { FindSpot }; 


END { IMPLEMENTATION } MODULE { SpotProcedures }. 


DEFINITION MODULE Statistics; 


MODULE NAME: Statistics DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: Ly opiblaly 427% 
Capt aes Me 


abe Gi 


DESCRIPTION : The procedures used to initialize, reset and 
collect the final data. 


FROM StatMod IMPORT RStatObj; 
FROM ListMod IMPORT QueueList; 
FROM CATFMod IMPORT CATFObj; 


VAR 

lastdeliverytime : LMONITORED REAL BY RStatObj; 

lastdeliverytimestats : RStatObj; 

vehiclestatlist >: QueueList; 

shipspotstatlist >: QueueList; 

lzspotstatlist >: QueueList; 

beforejump : REAL; 

TYPE 

vehiclestatrec = RECORD 
name : STRING; sorties : INTEGER; 
sidenum : INTEGER; cargo : REAL; 
mother : STRING; pax >: REAL; 
totaltime : REAL; reps : INTEGER; 
holding : REAL; 
shiphold : REAL; 
beachhold : REAL; 

END RECORD; 

spotstatrec = RECORD 
name : STRING; landings : INTEGER; 
number : INTEGER; reps : INTEGER; 
totaltime : REAL; 
inuse >: REAL; 

END RECORD; 


StatisticsOb ie —  Os0kCr, 


ASK METHOD StartStats; 

ASK METHOD ResetStats; 

ASK METHOD StopStats; 

ASK METHOD CollectRepStats (IN CATF : CATFOb}j); 


END OBJECT { StatisticsObj }; 


PROCEDURE CollectVehicleStats(IN CATF : CATFObj) ; 
PROCEDURE CollectShipSpotStats (IN CATF : CATFOb}) ; 
PROCEDURE CollectLZSpotStats (IN CATF : CATFObj); 
PROCEDURE FindVehicleRec (IN name : STRING; 

IN side : INTEGER; 

IN mother : STRING; 

OUT record : vehiclestatrec) ; 
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PROCEDURE FindSpotRec (IN name : STRING; 
IN side : INTEGER; 
IN list : QueueList; 
OUT record : spotstatrec) ; 


PROCEDURE CompileStats; 


END { DEFINITION } MODULE { Statistics }. 


IMPLEMENTATION MODULE Statistics; 


MODULE NAME: Statistics DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC 


DESCRIPTION : The procedures used to initialize, reset and 
collect the final data. 


FROM StatMod IMPORT RStatObj; 

FROM OutputDriver IMPORT StatsRecorder, LZrecorder; 
FROM CATFMod IMPORT CATFOb); 

FROM ARGMod IMPORT ARGObj; 

FROM Transport IMPORT TransObj; 

FROM SpotObject IMPORT Spot0Obj; 

FROM GrpMod IMPORT QueueObj; 

FROM SimMod IMPORT SimTime; 

FROM LZBeach IMPORT LZBeachObj ; 

FROM ListMod IMPORT QueueList; 


OBJECT StatisticsObj; 


ASK METHOD StartStats; 
BEGIN 
NEW (lastdeliverytimestats) ; 
ADDMONITOR (lastdeliverytime, lastdeliverytimestats) ; 
NEW (vehiclestatlist) ; 
NEW (shipspotstatlist) ; 
NEW (lzspotstatlist); 


END METHOD { StartStats }; 


ASK METHOD ResetStats; 

BEGIN 
ASK LZrecorder TO WriteString ("-1 -1 -1 -1 -1 -1); 
ASK LZrecorder TO WriteLn; 


LARS, 


beforejump := 0.0; 


END METHOD { ResetStats }; 


en enn enn ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


ASK METHOD StopStats; 
BEGIN 

ASK StatsRecorder TO WriteString 
("lastdeliverytime.count := "+INTTOSTR 
(lastdeliverytimestats.Count) ); 

ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteString 
("lastdeliverytime.mean := "+REALTOSTR 
(lastdeliverytimestats.Mean())); 

ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteString 
("lastdeliverytime.maximum := "+REALTOSTR 
(lastdeliverytimestats.Maximum) ) ; 

ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteString 
("lastdeliverytime.minimun := "+REALTOSTR 
(lastdeliverytimestats.Minimum) ) ; 

ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteString 
("lastdeliverytime.variance := "+REALTOSTR 
(lastdeliverytimestats.Variance())); 

ASK StatsRecorder TO WriteLn; 


CompileStats; 


END METHOD { StopStats }; 
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ASK METHOD CollectRepStats (IN CATF : CATFOb}j) ; 
BEGIN 
CollectVehicleStats (CATF) ; 
CollectShipSpotStats (CATF); 
CollectLZSpotStats (CATF) ; 
OUTPUT ("Collected rep stats"); 


END METHOD { CollectRepStats }; 
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END OBJECT { StatisticsObj }; 


ZO 
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PROCEDURE CollectVehicleStats(IN CATF : CATFOb}); 


VAR 

acft : TransObj; 

ship : ARGObj; 

record : vehiclestatrec; 
BEGIN 


ship := ASK CATF.shiplist First (); 
IF (ship <> NILOBJ) 


REPEAT 
acft := ASK ship.squadron First(); 


IF (ac£t <> NILOBJ) 


REPEAT 

FindVehicleRec(acft.name, 
acft.sidenumber, 
acft.mymother.name, record) ; 

INC (record.reps) ; 

record.totaltime := record.totaltime 
+ (acft.shutdowntime - 
acft.airbornetime) ; 

record.holding := record.holding + 
acft.holdingtimestats.Sum; 

record.shiphold := record.shiphold + 
acft.holdingshipstats.Sum; 


record.beachhold := record.beachhold 
+acft.holdingbeachstats.Sum; 

record.cargo := record.cargo + 
aGite eOcalLcargo; 

record.pax := record.pax + 
acft.totalpax; 

record.sorties := record.sorties + 


acft.totalsorties; 
acft :=ASK ship.squadron Next (acft) ; 
UVP Phetmeachts— NMTOBd ) = 
BIND sel 
ship := ASK CATF.shiplist Next (ship) ; 


UNTIL (ship = NILOBJ) ; 
END IF; 


END PROCEDURE { CollectVehicleStats }; 


PROCEDURE FindVehicleRec (IN name : STRING; 


ae 


IN side : INTEGER; 
IN mother : STRING; 
OUT record : vehiclestatreay 


VAR 
checkthis : vehiclestatrec; 
found = Jsl@lOlaayeun| 5 
BEGIN 
found := BALSE- 
checkthis := ASK vehiclestatlist First (); 


IF (checkthis <> NILREC) ; 
REPEAT 


IF ((checkthis.name = name) AND 
(checkthis.sidenum = side) AND 
(checkthis.mother = mother) ) 


record := checkthis; 
ime Whole sy Ik Sauna 
ELSE 
checkthis := ASK vehiclestatlist 
Next (checkthis) ; 
END iF; 


UNTIL ((checkthis = NILREC) OR (found)); 
ELSE 


OUTPUT ("Error in FindVehicleRec") ; 
HALT ; 


ENG, 


END PROCEDURE { FindVehicleRec }; 
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PROCEDURE CompileStats; 


VAR 
record >: vehiclestatrec; 
SPOErTECOrdG = SpPeGeSEar aoe, 
Statl, stat2, stat3 : REAL; 
BEGIN 


ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteString 
("----- Vehicle Holding Stats------- ie 
ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteLn; 


ZZ 


ASK StatsRecorder TO WriteString 
(" Shisp Vehicle TotalHold% Shiphold% 
BeachHold%") ; 

ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteLn; 


record := ASK vehiclestatlist First(); 
LF (reeond <>SeNILREC) 


REPEAT 
ASK StatsRecorder TO WriteString 
(record.mother+" "+record.name+" "+ 
INTTOSTR (record.sidenum) 
JE " tf 
+INTTOSTR (TRUNC (100.0* 
(record.holding/record.totaltime) ) ) 
ee " " 
+INTTOSTR (TRUNC (100.0* 
(record.shiphold/record.totaltime) ) ) 
oe " " 
+INTTOSTR (TRUNC (100.0* 
(record.beachhold/record.totaltime)))); 
ASK StatsRecorder TO WriteLn; 
record := ASK vehiclestatlist Next (record) ; 
UNTIL (record = NILREC) ; 


ELSE 
OUTPUT ("NO VEHICLE RECORDS TO COMPILE") ; 
PN ae = 


ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteString 
("---------- Vehicle Sortie Stats----------- Ma) ee 
ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteString 
(". Ship Vehicle Cargo Pax Soreres ja 
ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteLn; 


record := ASK vehiclestatlist First(); 
IF (record <> NILREC) 
REPEAT 
ASK StatsRecorder TO WriteString 


(record.mother+" "+record.name+" "+ 
INTTOSTR (record.sidenum) 


123 


au "+INTTOSTR( TRUNG 
(record. cargo/FLOAT (record.reps) ) ) 
+" "+INTTOSTR (TRUNC 
(record.pax/FLOAT(record.reps) ) ) 
ee Wt 1 
+INTTOSTR(record.sorties DIV 
record.reps) ); 
ASK StatsRecorder TO WriteLn; 
record := ASK vehiclestatlist Next (record) ; 
UNTIL (record =a bREG 


ELSE 


OUTPUT ("NO VEHICLE RECORDS TO COMPILE") ; 


END IF; 


ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteString 
(Teas = Ship Spot Stats----------- up) Fe 

ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteString 

(CGS feasts) Spot Utrilized% Landings #32 
ASK StatsRecorder TO WriteLn; 

ASK StatsRecorder TO WriteLn; 


spotrecord := ASK shipspotstatlist First(); 
IF (spotrecord <> NILREC) 


REPEAT 
ASK StatsRecorder TO WriteString 
(spotrecord.name+" "+INTTOSTR 
(spotrecord.number) 
a tt tt 
+INTTOSTR (TRUNC (100.0* (spotrecord.inuse 
/spotrecord.totaltime) ) ) 
+ tt W 
+INTTOSTR(spotrecord.landings 
DIV spotrecord.reps) ) ; 
ASK StatsRecorder TO WriteLn; 
Spotrecord := ASK shipspotstatlist 
Next (spotrecord) ; 
UNTIL (spotrecord — NiGREG) - 


ELSE 


OUTPUT ("NO SHIPSPOT RECORDS TO COMPILE"); 


END IF; 


124 


END 


ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteString 
(N--------- LZBeach Spot Stats------ ae ae 
ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteString 
("LZBeach Spot Utilized landings"); 
ASK StatsRecorder TO WriteLn; 
ASK StatsRecorder TO WriteLn; 


spotrecord := ASK lzspotstatlist First (); 


IF (spotrecord <> NILREC) 


REPEAT 
ASK StatsRecorder TO WriteString 
(spotrecord.name+" "+INTTOSTR 
(spotrecord.number) 
+" "+INTTOSTR (TRUNC 


(100.0* (spotrecord.inuse 
/spotrecord.totaltime) ) ) 
+" "+ INTTOSTR 
smo ot recordam@landings Daly 
spotrecord.reps) ); 

ASK StatsRecorder TO WriteLn; 

spotrecord = ASK lzspotstatlist 
Next (Spotrecord) ; 

UibEe {(spoerecord = NILREC) = 


ELSE 
OUTPUT ("NO LZBEACH SPOT RECORDS TO COMPILE") ; 
BIN EE : 


PROCEDURE { CompileStats }; 


PROCEDURE CollectShipSpotStats (IN CATF : CATFOb}); 


VAR 
spot 7 SperObDar 
ship : ARGObJ; 
record : Spotstatrec; 
Spotsavail : QueueObj; 
BEGIN 
ship := ASK CATF.shiplist First (); 


IF (ship <> NILOBJ) 
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REPEAT 


spotsavail := ship.airboss.spotsavail; 
spot := ASK spotsavail First (); 


IF (spot <> NILOBJ) 
REPEAT 


FindSpotRec(ship.name, 
spot .spotnumber, 
shipspotstatlist, record) ; 


INC (record.reps) ; 
record.totaltime := record.totaltime 
+ lastdeliverytime; 

record.inuse := record.inuse + 

spot .allocatedtimestats.Sum; 
record.landings := record.landings + 
spot.landings; 


spot := ASK spotsavail Next (spot) ; 
UNTIL ( spot = NIGOBJ) ; 
BN ere; | | 
ship := ASK CATF.shiplist Next (ship) ; 


UNTIL (ship = NILOBJ) ; 
END IF; 


END PROCEDURE { CollectShipSpotStats }; 


PROCEDURE FindSpotRec (IN name : STRING; 
IN side : INTEGER; 
IN list : QueueList; 
OUT record : spotstatrec) ; 


VAR 
checkthis : spotstatrec; 
found : BOOLEAN; 
BEGIN 
Found := FALSE; 
checkthis := ASK list First(); 


IF (checkthis <> NILREC) ; 
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REPEAT 
IF ((checkthis.name = name) AND 
(checkthis.number = side) ) 


record := checkthis; 

eeylbatel 2 ews) Np oy 
ELSE 

checkthis := ASK list Next (checkthis) ; 
PND eelere ° 


UNTIL ((checkthis = NILREC) OR (found) ); 


ELSE 


OUTPUT ("Error in FindShipSpotRec") ; 
HALT; 


END eee - 


END PROCEDURE { FindSpotRec }; 


PROCEDURE CollectLZSpotStats (IN CATF : CATFOb}) ; 
VAR 


spot mS OrOos), 
kz : LZBeachObj ; 
record >: Spotstatrec; 
spotsavail : QueueObj; 
BEGIN 
1z := ASK CATF.1lzbeachlist First(); 


IF (lz <> NILOBJ) 


REPEAT 
spotsavail := 1z.fac.spotsavail; 
spot := ASK spotsavail First(); 


IF (spot <> NILOBJ) 


REPEAT 
FindSpotRec 
(lz.name,spot.spotnumber, 
lzspotstatlist, record); 


INC (record.reps) ; 
record.totaltime := 
BecOrdstotaltime 
+ lastdeliverytime; 
record.inuse := record.inuse + 
spot.allocatedtimestats.Sum; 


7 


record. landings — 
record.landings + 
spot.landings; 
spot := ASK spotsavail 
Next (spot) ; 
UNTIL ( spot = NILOBJ); 


END IF; 


lz := ASK CATE. lzbeachiise Next (l2— 
UNTIL (1z = NILOBJ) ; 
END IF; 


END PROCEDURE { CollectLZSpotStats }; 


END { IMPLEMENTATION } MODULE { Statistics }. 


DEFINITION MODULE Transport; 


MODULE NAME: TransportCraft DATE WRITTEN: 18 Mar 92 
AUTHOR: S. E. Shaw LAST MODIFIED: 
Capt USMC MObe EI ED By 


DESCRIPTION : Defines the objects used to move pax and 
cargo ashore. Can be used for either surface craft (LCAC, LCU, 
etc) or aircraft. 


FROM ARGMod IMPORT ARGObj; 

FROM LZBeach IMPORT LZBeachObj; 
FROM SerialMod IMPORT SerialObj; 
FROM HDCMod IMPORT HDCObj; 

FROM global IMPORT LocationxyY; 
FROM RGlobals IMPORT SHierRecType; 
FROM StatMod IMPORT RStatObj; 


EXPORTTYPE 
TransObj = OBJECT; FORWARD; 
TYPE 
TransObj = OBJECT 
name : STRING; Lecataon - Locationxy: 
sidenumber : INTEGER; launchtime >: REAL; 
totalpax >: REAL; totalcargo >: REAL; 
totalsorties : INTEGER; spreadupper : REAL; 
mymother : ARGOb); spreadlower : REAL; 
maxfuel >: REAL; totalfuel >: REAL; 
emptyspeed : REAL; myhdc Sy SkBIOlo 4] - 


is 


loadedspeed REAL; emptyburnrate REAL; 
loadedburnrate REAL; destination ARGObj ; 
serialonboard SerialObj; foldlower REAL; 
fuelonboard REAL; foldupper REAL; 
acftrange REAL; groundburnrate REAL; 
crewday REAL; shutdowntime REAL; 
serialnum INTEGER; cleared BOOLEAN ; 
minfuel REAL; holding REAL; 
externaltime REAL; paxtime > REA: 
cargotime REAL; spotsreqd INTEGER; 
spotsizereqd INTEGER; shutdown BOOLEAN ; 
maxloadsize INTEGER; numserials INTEGER; 
airbornetime REAL; totalholding REAL; 
holdingtime LMONITORED REAL BY RStatObj; 
holdingtimestats RStatObj; 

holdingship : LMONITORED REAL BY RStatObj; 
holdingshipstats RStatObj; 

holdingbeach LMONITORED REAL BY RStatObj; 
holdingbeachstats RStatObj; 

ASK METHOD ObjInit; 

ASK METHOD ReadData (IN record SHierRecType) ; 

ASK METHOD NewHDC (IN newHDC : HDCOb}j) ; 

ASK METHOD SetSide (IN side INTEGER) ; 

ASK METHOD AssignMother (IN mother ARGOb)) ; 

ASK METHOD UseFuel (IN amount REAL) ; 

ASK METHOD TakeOnFuel ; 

ASK METHOD SetLaunchTime (IN time : REAL); 

ASK METHOD DestroyVehicle; : 

TELL METHOD Load; 

Thil METHOD Operate; 

TELL METHOD GetClearance ; 

TELL METHOD TransitToBeach; 

TELL METHOD FlyToShip; 

TELL METHOD Reposition (IN newserial SerialObj) ; 
TELL METHOD ReturnToBase; 

TELL METHOD Unload; 

TELL METHOD Spot; 

TELL METHOD ShutDown; 


END OBJECT { TransPortObj}; 


END {DEFINITION} MODULE {TransportCraftMod}. 


IMPLEMENTATION MODULE Transport; 
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MODULE NAME: TransportCraft §BATE WraetreNn: 13 Mane 
AUTHOR: Se olla LAST MODIFIED: 
Capt, USME MODI FEEE RD 4: 


DESCRIPTION : Defines the objects used to move pax and 
cargo ashore. Can be used for either surface craft (LCAC, LCU, 
ete or aircraft. 


FROM SimMod IMPORT SimTime; 

FROM ARGMod IMPORT ARGOb}j; 

FROM HDCMod IMPORT HDCObj,BriefingRec; 

FROM SerialMod IMPORT SerialObj; 

FROM global IMPORT LocationxXY, Distance, moreserials, 
SpreadStream, FoldStream; 

FROM FuelGuage IMPORT BurnFuel, CheckGas, Getfuel; 

FROM RGlobals IMPORT SHierRecType; 

FROM SpotProcedures IMPORT GetShipSpot, GetLZSpot, 
GiveBackShipSpot, GiveBackLZSpot, InitialLaunch; 

FROM LoadProcedures IMPORT LoadCargo, UnLoadCargo; 

FROM Debug IMPORT TraceStream; 


OBJECT TransObj; 


ASK METHOD Objinit; 
BEGIN 
NEW (holdingtimestats) ; 
ADDMONITOR (holdingtime, holdingtimestats) ; 
NEW (holdingshipstats) ; 
ADDMONITOR (holdingship, holdingshipstats) ; 


NEW (holdingbeachstats) ; 
ADDMONITOR (holdingbeach, holdingbeachstats) ; 


END METHOD { Objinit }; 


ASK METHOD ReadData (IN record : SHierRecType) ; 


BEGIN 
name := record.TopString; 
maxfuel := STRTOREAL(record.OwnedString[1]) ; 
minfuel := STRTOREAL (record.OwnedString[2]) ; 
emptyspeed := STRTOREAL(record.OwnedString([3]); 
loadedspeed := STRTOREAL(record.OwnedString[4]) ; 
loadedburnrate := STRTOREAL(record.OwnedString[5]); 
emptyburnrate := STRTOREAL(record.OwnedString [6] ) ; 


be 0) 


groundburnrate := STRTOREAL (record.OwnedString([7]); 


foldlower := STRTOREAL(record.OwnedString[8]) ; 
foldupper := STRTOREAL (record.OwnedString [9] ) ; 
spreadlower := STRTOREAL(record.OwnedString[10]); 
spreadupper := STRTOREAL(record.OwnedString[11]); 
acftrange := STRTOREAL(record.OwnedString[12]) ; 
crewday := STRTOREAL(record.OwnedString[13]); 
externaltime := STRTOREAL(record.OwnedString[14]); 
paxtime := STRTOREAL (record.OwnedString[15]) ; 
cargotime := STRTOREAL(record.OwnedString[16]) ; 
spotsreqd := STRTOINT(record.OwnedString [17] ); 
spotsizereqd := STRTOINT(record.OwnedString[18]) ; 
maxloadsize := STRTOINT (record. OwnedString[19]) ; 
fuelonboard := maxfuel; 

serialnum := 0; 

cleared := TRUE; 

crewday := crewday * 60.0; 


END METHOD { ReadData }; 


fob METHOD Spot; 


VAR 
ship oO URINGe 
startpoint = hoCa t mem. 
endpoint : LocationxyY; 
gonogo : REAL; 
newserial : SerialObj; 
available : BOOLEAN; 
othership : BOOLEAN; 
loadtime >: REAL; 
briefing - EerietingkRec; 
combined >: BOOLEAN; 

BEGIN 
destination := mymother; 
ship := mymother.name; 


ASK myhdc TO GiveFirstLoad (ship, maxloadsize, 
newserial,othership) ; 

serialonboard := newserial; 

numserials := 1; 


IF ((serialonboard.minliftsize = 1) AND 
(mMaxloadsize > 1)) 
NEW (briefing) ; 


briefing.serial := serialonboard.serialnum; 
briefing.dest := NILOBJ; 
briefing.1z := serialonboard.destination; 


dle ia § 


briefing.loadsize := serialonboard.minliftsize; 
ASK myhdc TO CombineLoads (briefing, combined) ; 


IF (combined) 
numserials := 2; 
END Sk 
END are 


WAIT DURATION (ASK SpreadStream UniformReal 
(spreadlower, spreadupper) ); 
END WAIT; {spread acft wait} 


IF othership 

TELL SELF TO Reposition (newserial) ; 

TERMINATE ; 
ELSE 

ASK myhdc.seriallist TO RemoveThis (serialonboard) ; 
END iE; 


startpoint := mymother.location; 
endpoint := newserial.destination.location; 
gonogo := Distance (Startpoint, endpoint) ; 


WAIT DURATION loadtime 
END WAIT; { load serial wait } 


BurnFuel (SELF, loadtime, 0.0, 0.0); 
airbornetime := SimTime() ; 


TELL SELF TO TransitToBeach; 


END METHOD { Spot }; 


TELL METHOD Reposition (IN newserial : SerialObj) ; 
BEGIN 
GiveBackShipSpot (SELF) ; 


destination := newserial.source; 
serialnum := newserial.serialnum; 
airbornetime := SimTime(); 


TELL SELF TO FlyToShip; 


END METHOD { Reposition }; 


TELL METHOD ReturnToBase; 


BEGIN 
GiveBackShipSpot (SELF) ; 
destination := mymother; 


a2 


WAIT FOR SELF TO FlyToShip; 
END WAIT; 


END METHOD { ReturnToBase }; 


TELL METHOD Load; 


VAR 
loadtime : REAL; 
newload : SerialObj; 
BEGIN 


heokdtncgtames= cimlime() - hol@ing; 
holdingship := SimTime() - holding; 
BurnFuel (SELF, 0.0, holdingtime, 0.0); {fuel used 
awaiting 
deckspot } 
IF (serialnum > -1) 


ASK myhdc TO GiveLoad (serialnum, newload) ; 
serialonboard := newload; 
IF (serialonboard <> NILOBJ) 
LoadCargo (SELF, loadtime); 
WAIT DURATION loadtime 
END WAIT; { load serial wait } 
totalpax := serialonboard.pax + totalpax; 
totalcargo := serialonboard.cargo 
+ totalcargo; 
BurnFuel (SELF,loadtime, 0.0, 0.0); 
END GF; 


END ae; 
TELL SELF TO TransitToBeach; 


END METHOD { Load }; 


ASK METHOD SetSide (IN side : INTEGER); 
BEGIN 
Sidenumber := side; 


END METHOD { SetSide }; 


ASK METHOD AssignMother (IN mother : ARGObj) ; 
BEGIN 
mymother := mother; 
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END METHOD { AssignMother }; 


TELL METHOD Operate; 
VAR 
available >: BOOLEAN; 


BEGIN 
WAIT DURATION launchtime:; 
END WAIT; 


InitialLaunch (SELF, available) ; 


LF (avarbabile) 
TELL SELF TO Spot; 
END Sie 


END METHOD { Operate }; 


ASK METHOD NewHDC (IN HDC : HDCObj) ; 
BEGIN 
Mmyhde =: — Hee: 


END METHOD { SetHDC }; 


ASK METHOD SetLaunchTime (IN time : REAL); 
BEGIN 
launchtime := time; 


END METHOD { SetLaunchTime }; 


TELL METHOD TransitToBeach; 


VAR 
start - HOcallon 
end >: LocationxyY; 
leg > REAL; 
Piaght time : REAL; 
available : BOOLEAN; 
airspeed : REAL; 
BEGIN 
WAIT FOR SELF TO GetClearance; 
END WAIT; 


IF (cleared) 
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ASK serialonboard.source TO CurrentPos(start.x, 

Seart. y) > 
serialonboard.destination.location; 
Distance (start, end); 


end 
leg 


IF (serialonboard.lift = "EXTERNAL") 
airspeed := serialonboard.externalspeed; 
ELSE 
airspeed := cruisespeed; 
NID) AELZet 


flighttime := (leg / airspeed) * 60.0; 
GiveBackShipSpot (SELF) ; 


WAIT DURATION flighttime; 
END WAIT; { transit time to shore } 
Peatinne be Skint, 02078070, Elighttime) ; 


holding := SimTime() ; 
GetLZSpot (SELF, available) ; 


IF (available) | 
TELL SELF TO Unload; 
END SLE: 
ELSE 
TELL SELF TO ShutDown; 
END IF; 


END METHOD { TransitToBeach }; 


Ce ee ee el 
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Teouly METHOD Unload; 


VAR 
briefing : BriefingRec; 
unloadtime : REAL; 
available : BOOLEAN; 
combined : BOOLEAN; 
assignedaload : BOOLEAN; 
BEGIN 
location := serialonboard.destination.location; 
holdingtime := SimTime() - holding; 


holdingbeach := SimTime() - holding; 


UnLoadCargo (SELF, unloadtime) ; 
INC (totalsorties) ; 


dies 


END 


WAIT DURATION unloadtime; 
END WAIT; { unload serial wait } 


ASK serialonboard.destination TO ReceiveLoad 
(serialonboard.pax,serialonboard.cargo, 
numserials); 

BurnFuel ( SELF, unloadtime, 0.0, holdingtime) ; 


ASK myhdc NewDestination (briefing, maxloadsize, 
assignedaload) ; 


IF assignedaload 


destination := briefing.dest; 
serialnum := briefing.serial; 
numserials := 1; 


IF ((briefing.loadsize = 1) AND (maxloadsize > 1)) 
ASK myhdc TO CombineLoads (briefing, combined) ; 


IF combined 


numserials := 2; 
END IF; 
BIN db 
ELSE 
destination := mymother; 
serialnum := -100; 
END i 


DISPOSE (briefing) ; 
GiveBackLZSpot (SELF) ; 

THLL SELF TOen ty tesa, 

ASK serialonboard TO DestroySerial; 
serialonboard := NILOBJ; 


METHOD { Unload }; 


TELL METHOD BlyToshae, 


VAR 


start >: Locationxy; 
end >; Locationxy; 
leg : REAL; 
flighttime : REAL; 
available >: BOOLEAN; 
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BEGIN 


Start := location; 

ASK destination CurrentPos (end.x, end.y); 
leg := Distance (start, end); 

flighttime := (leg / cruisespeed) *60.0; 


WAIT DURATION flighttime; 
END WAIT; { transit time to ship } 


oleae. — ss iil ime () ; 
GetShipSpot (SELF, available) ; 


IF (available) 


IF (NOT shutdown) 
Teles etue TO head: 
END IF; 


END IF: 
Burn Puecie (ShnE, 0.0, Flighttime, 0.0); 


END METHOD { FlyToShip }; 


TELL METHOD ShutDown; 
BEGIN | 
IF (destination.name <> mymother.name) 


WAIT FOR SELF TO ReturnToBase; 
END WAIT; 


END IF; 


WAIT DURATION ASK FoldStream UniformReal 
(foldlower, foldupper) 
END WALT; 


shutdowntime := SimTime(); 
GiveBackShipSpot (SELF) ; 


END METHOD { ShutDown }; 


ASK METHOD UseFuel (IN amount : REAL); 
BEGIN 
fuelonboard := amount; 


de? 


END METHOD; 


ASK METHOD TakeOnFuel ; 
BEGIN 
fuelonboard := maxfuel; 


END METHOD; 


TELL METHOD GetClearance; 


VAR 
needfuel : BOOLEAN; 
duration : REAL; 
Transitdist : REAL; 
Start ; HOCAt LOMAY ; 
end : Locationxy; 
BEGIN 
cleared := FALSE; 


IF (serialnum > -1) 
CheckGas (SELF, needfuel); 


IF needfuel 
Getfuel (SELF, duration) ; 
WAIT DURATION duration 


END WAIT; 
END IF; 
cleared := TRUE; 


ASK serialonboard.source TO CurrentPos (start.x, 

start.y) ; 
end := serialonboard.destination.location; 
transitdist := Distance(start, end); 


IF ((launchtime + crewday) <= (SimTime() 
+ 2.0*transitdist/60.0)); 


cleared := FALSE; 
shutdown := TRUE; 
END IF; 


END IF; 


END METHOD { GetClearance }; 


ASK METHOD DestroyVehicle; 
BEGIN 


vere 


serialonboard := NILOBJ; 
mymother := NILOBdJ; 
myhdc := NILOBJ; 
destination := NILOBJ; 
DISPOSE (SELF) ; 


END METHOD { DestroyVehicle }; 


-—=-_ ese se =e =e = = =& wwe we we we we weewreese ws BSF 2S BSF 2S |S Se wa fs BS BFS BFS VFS] VF] Vf] 2] 2] BfS] 2S 2] 2] 2S 2S 2S |] BS se = B&F = fF |= * we we BF BSF BS | | | — = 


END OBJECT { TransPortObj }; 


END { IMPLEMENTATION } MODULE { TransportCraft }. 
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APPENDIX B HARDWARE REQUIREMENTS 


The simulation presented will run on an IBM compatible 
personal computer under OS/2 with both a hard disk drive and 
one floppy drive. For speed considerations, a fast (20+) 80386 
or higher computer is recommended. The presence of a math 
coprocessor is not required, although the use of a coprocessor 
would reduce the model run time. The simulation itself is 
written in MODSIM II, an advanced, object-oriented simulation 
language. 

In the 0S/2 (ver. 1.21) environment, the modificattemeand 
compilation of the program requires the MODSIM II language 
(ver. 1.6) and at least an IBM AT compatible (80386+) computer 
with 4 megabytes of memory and a hard disk drive. In addition, 
the MODSIM II compiler requires the Microsoft C compiler (ver. 
6.0). MODSIM compiles to the computer language ’C’ which is 
then compiled by the ‘’C’ compiler to the native format of the 
personal computer. This represents the minimum contigurareem 


required to modify and compile the model. 
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APPENDIX C SAMPLE SHIP-TO-SHORE PROGRAM INPUT FILES 


Seee.dat 
LZBeach.dat 
Sermv22.dat 
Seeds.dat 
R34A 


This data file contains the names of the other input files 
as well as the desired name for the output files. These input 
Files may have any name that the user desires, but must appear 
in the order given below: 


The Aircraft data file name. 

The Ship data file name. 

The Spot data file name. 

The Serial file name. 

The Seeds file name. Always use ‘'Seeds.dat’, the user has 
no need to change this file. 

6) The name desired for all of the output files. Allows 
output from different scenarios to be saved. 


Ul PB WN PR 


ee ll ee Ship.dat ----------------- +c cr creer eee 
3 

Poh > UAHA 15 50 20 17 15 50 500.0 H MV22 8 000 0 0 0 
meeezo CHS5S3AD 4 20 20 20 20 Ne 


NEWEORT -> LST 10 50 15 10 10 50 300.0 \\ 
RALTEGH -> LPD 23 50 18 10 23 50 200.0 \\ 


This file contains input regarding the operating 
characteristics of the amphibious ships. There must be one 
record for each ship within the scenario to be run. 


numberOfShipsInAll ... The number of ship records to be read. 
ShipName -> ... Name of the first ship. 

type ———eelhe ship type. 

location.x ... The x and y coordinates of the ships start 
location.y peink 

steamspeed ... The ships steaming speed. 
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holdingspeed ... The ships holding speed. 


holdlocation.x ..., The xX andy coondamates for (ine ssa 
holdlocation.y Holding positron 
pumprate ... The rate (in pounds per minute) that the ship can 


pump fuel into the aircraft. 


<H> ... Signifies the beginning of the transport vehicles 
aboard this ship. 


TransportAcftTypel ... The type of the first transport 
aircraft. Must match the ones contained 
in the AcEt dat mere. 


#TransportAcftTypel ... Number of type 1 Transportcraft. 
launchtimes ... Launch times for each of the type 1 


Transportacft listed in minutes from time 
zero. MUST BE ONE LAUNCH TIME FOR EACH TYPE 1 


TransportActt. 
TransportAcftType2 ... Type 2 TransportAcft. 
launchtimes ... Launch times for each of the type 


1 Transportacft listed in minutes from time 
zero. MUST BE ONE LAUNCH TIME FOR EACH TYPE 2 
TransportActt. 


<A> ... Signifies the start of the attack aircraft aboard this 
ship. 


AttackAcftTypel ...The type of the first attack aircraft. Must 
match the ones contained in the Acft.dat 


file. 
#AttackAcftTypel ... Number of type 1 Attackacft. 
launchtimes ... Launch times for each of the type 1 AttackAcft 


Listed in minutes from time zero. MUST BE ONE 
LAUNCH TIME FOR EACH TYPE 1 AttackAcft. 


AttackAcftType2 ... Type 2 AttackAcft. 
#AttackAcftType2 ... Number of type 2 Attackacft. 
launchtimes ... Launch times for each of the type 1 AttackAcft 


Listed in minutes from time zero. MUST BE ONE 
LAUNCH TIME FOR EACH TYPE 2 AttackAcft. 
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< \\ >... Signifies the end of this ships record. 


The above are repeated for each ship in the scenario. 


meee ~~ =  m  - - - ----- INGQELE GRRE SS 2 SS i SS 


meee - > tT OOO 12005 147 139 2539 2218 1109 10 15 10 15 
POOmeommeer On 2.0) °3..0 <1 3 2 \\ 


CH46 -> 2400 O02 29 23751146 So hoe > LO 
i erCGms: lessee 3.05 1 2 1 \\ 


CH60 ee oe) TOUR lod 128 gec 856 toe elOer= 15 - 10 
Als OC Se2- O° 9 S.0 82 2 1 \\ 


Mimgee>s 6700 1100 145 144 2230 1869 935 10 15 1015 
100 § 1.8 2.0 “o,0bab es 2A 


(The S-92, MV-22 and EH-101 data is omitted here. At the time 
that this thesis was submitted the information was proprietary 
in nature.) 


fee mumberOfAlrcraftListsInAll 

2 AcftName -> maxfuel minfuel emptyspeed loadedspeed 
loadedburnrate emptyburnrate groundburnrate foldlower 
foldupper spreadlower spreadupper acftrange crewday 
externaltime paxtime cargotime spotsreqd spotsizeregqd 
Mmaxloadsize < \\ > 


AcftName -> The name of the aircraft. Must match the name 
used in the Ship.dat file. 


maxfuel ... The maximum amount of fuel (in pounds) that the 
aircraft can carry. This is used when aircraft refuels. 


minfuel ... The NATOPS minimum for fuel (in pounds). Used to 
determine when an aircraft requires refueling. 


emptyspeed ... The speed at which the empty aircraft transits 
from the beach to the ship. 


loadedspeed ... The speed at which the loaded aircraft 
transits from the ship to the beach. 


loadedburnrate ... The rate (in pounds per hour) at which the 
loaded aircraft burns fuel inflight. 


emptyburnrate ... The rate (in pounds per hour) at which the 
empty aircraft burns fuel inflight. 
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groundburnrate ... The rate (in pounds per hour) at which the 
aircraft burns fuel while on the deck. 


foldlower ... Used to determine how long it takes to fold the 
Foldupper aircraft during shutdown. 

spreadlower ... Used to determine how long it takes to spread 
spreadlower alrcraLl priler co. launch. 

acftrange ... The round trip range of the aircraft. Any number 


will do for now, not used by this version of the model. 


crewday ... The crewday for the pilots. One of the factors 
used to determine the time for shutting down the aircraft. 


externaltime ... A parameter to determine the amount of time 
to hook up an external load. 


paxtime ... A parameter for determining the amount of time to 
load passengers. 


cargotime ... A parameter for determining the amount of time 
to load cargo. 


spotsreqad ... The number of landings spots an aircraft 
requires. Not used here, should be set to 1. 


spotsizereqd ... The spot size an aircraft requires for 
landing. These match with the size of spots contained in 
the Spot.dat file. Prevents aircraft from landing on spots 
that they are not allowed on. 


maxloadsize ... The maximum size load an aircraft can carry. 
For example, a CH46 would be set to 1 while a CH53 would 
get a 2. This allows for the combining of serials to take 
advantage of the payload capacity if larger aircraft. 


ialeiaieieieitaiiaie wiiaiedeia «<< > Spot .dat ==----—----- 7 -- - ~~ ae 
7 

LHA -> 822345666 \\ 

LST -> 16 \\ 

LSD -> 16 \\ 

LED +=5..2 \.6.26.-\ \ 

LPH -> 61314466 \\ 

LZOWL -> 4666666 \\ 

LZSPARROW -> 3666666 \\ 


The number of spots and the size of each spot for all 
amphibious ships and each LZ may be altered with this file. 
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numberofShips/LZsinAll ... Number of spot records in the file. 


ShipLZTypel -> ... The type of ship, or the LZ name of the 
first record. For ships, this must match 
the type field in the Ship.dat file. 


numspots ... The number of spots available on the ship or in 
the L2. 
SizeSpotl ... The size of the first spot. This should match up 


with the spotsizereqd field in the Acft.dat 
file. For example, if a CH53 is givena 
spotsizereqd of 3, then it would only be allowed 
to land on spots with a SizeSpot value of 3 or 


greater. 
SizeSpot2 .... Same as for spot 1. 
SizeSpotN ... Size of the last spot. 


<\\> signifies the end of the current spot record. 
There must be one spot record for each Ship type, as well as 


one spot record for each LZ. The total number of spot records 
must equal the numberofShips/LZsinAll value given. 


LZSPARROW -> 23 3 ey 
LZOWL -> 8s 3 \\ 


This file contains the attributes for each landing zone. 


numberOfLZBeachesInAll ... The total number of LZBeach records 
to be read in. 


LZBeachName -> ... The name of the LZ or Beach. Must match the 
destinations given to the serials in the 
Serial.dat file. 


location.x ... The x and y coordinates of the LZ or Beach. 
focation.y 


ey > ... Signifies the end of the LZ or Beach record. 


Repeat the above for every LZ or Beach. The number of records 
must match the numberofLZBeachesInAll value given. 
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44 
1 -> 101 LZOWL PELELIEU 0 5 1 INTERNAL 10 \\ 
2 -> 102 LZOWL PELELIEU 0 15 1 INTERNAL 10 \\ 
3 -> 103 LZOWL PELELIEU 0 15 al INTERNAL 10 \\ 
4 -> 104 LZOWL PELELIEU 0 15 1 INTERNAL 10 \\ 
5 -> 105 LZOWL PELELIEU 0 15 gt INTERNAL 10 \\ 


44 -> 144 LZSPARROW PELELIEU 4000 0 22 EXTERNAL 2 80 \\ 


The data required to create the serials within the current 
scenario 1S contained within this file. 


number of serials ... The total number of serial records to be 
read in. 

record number ... The record number for this serial. 

serial number ... The number assigned to the serial. May be 


different from the record number. 


destination ... The destination LZ for the serial. Must match 
one of the landing zone names in the 
LZBeach.dat file. 


source ... The location of the serial when the simulation 
commences. Must match one of the ship names in the 
Ship.dat tile. 


external cargo ... The amount of external cargo (in pounds) in 
the serial. 


passengers ... The number of passengers in the serial. 


priority ... The priority of the serial. Determines when the 
serial is moved ashore. 


mode ... The mode in which the serial is transported ashore. 
Must be either INTERNAL or EXTERNAL. 


minlift ... Minimum sized aircraft required to move the serial 
ashore. Must correspond to one of the maxloadsize fields 
of the Acft.dat file. 


externalspeed ... The airspeed limitation on the cargo to be 
carried externally. 
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APPENDIX D CUTTER SAMPLE OUTPUT 


This Pypand i contains examples of the various output 
files for one run of the Cutter model. The <filename> used 
below refers to the user name input through the OPplan.dat 
file. 

A. <filename>.txt 

This is the summary file for the current scenario. The 
file will list the ships used, their locations, the number and 
types of aircraft aboard each ship and various summary 


Statistics. 


SHIP NAME SHIP TYPE STARTX STARTYy HOLDx HOLDy 


PELELIEU LHA aes 5 a5 S 
Transports Aboard: CH46 a2 CH53AD 4 

NEWPORT LST 10 5 ie 5 

RALEIGH LPD 23 5 23 5 

(9 52 398995555 re 

LZ NAME LOCATIONx LOCATIONy SPOTS 

LZSPARROW 23 3 3 

LZOWL 8 3 cs 

Siento > ee cr eee SIS SNES 3 SSS 2 ee 

lastdeliverytime.count := 120 

lastdeliverytime.mean := 163.945180 

lastdeliverytime.maximum := 336.245950 
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lastdeliverytime.minimum := 100.208837 
lastdeliverytime.variance := 1435.075719 


B. <filename>LZ.out 

This file contains the data recording the build-up of 
combat power ashore. The data within this file is arranged in 
four columns. The first, Timex, records the time t at whicha 
serial arrives ashore, either to an LZ or to a beach. 
BeforeJump, the second column, records the total combat power 
ashore prior to the arrival of the current serial. The Jump 
column contains the combat power value of the arriving serial. 
The last column, AfterJump, contains the total combat power 
ashore including the new arrival. The data from consecutive 
replications of the scenario are separated by a row of -1’s 
which are added by the model. 

These four columns of data are manipulated by the Analysis 


program, described in Chapter IV, to compare two mixes of 


ad Geta < 
TIME BEFOREJUMP JUMP AFTERJUMP 

172452565 02000000 020352800 0.035800 
18.713340 0.035800 0.035800 0.071599 
18.971841 0.071599 0.035800 OE 7 399 
19 .280203 0.107399 0.035800 0.143198 
202231016 0.143198 O03 5300 0.178998 
207625452 0.178998 02035800 0.214797 
29 -30153'6 0.214797 0.032967 0.247764 
30.099510 0.247764 0.024725 0.272489 
33.884638 0.272489 0.032967 0.305456 
35. 876570 0.305456 0.035800 0.341256 
37.766903 0.341256 0.043956 0.385212 
38.137090 02365212 0.035800 O44 280 AZ 
30> 150542 0.421012 O20219 73 0.442990 
39°. 310s 52 0.442990 07035800 0.478789 
39.464394 0.478789 0.035800 0.514589 
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a .292847 Onoda 32 On02e 725 O2559314 
Bi. 739906 Oimaa72 14 OOS S300 Oro ob 3 
45.160249 Oro eo l3 0.027473 Umo0Zo 56 
mo. 911192 0), GG) 4S ele 0.038462 0.641047 
mo L033 71 0.641047 Oe OS2Z767 0.674015 
56.408952 0.674015 02049923 Ok 7 CAEN ee 
a7). 120837 Om 23937 0.032967 0.756904 
62.442687 0.756904 02016956 Oe 735050 
Mop o2223 O27 7a eG0 C2017 ICG O27 1760 
74.186491 Olay Salad 610 Ol Oberle Oe tees) Fabs: 
81.357447 O2eCs7is COS 22.57 0.841682 
er. 563816 0.841682 0.037740 Org 942 2 
84.377447 0.879422 G20 17 900 C2897 sac 
mo 622038 OF eI 7322 G.017900 G2 LS222 
Ge. 182672 Cg SANS 4 7 02032957 0.948189 
Gen 332213 0.948189 OF OMG a6 G9 65145 
eer. 050519 O.965145 O07 206 0.983044 
114.928264 0.983044 QO. 016956 iw COO0G 


eee eee dK] RH) a HL 


C. <filename>End.out 
This file has one column which contains the completion 


time for each replication of the current scenario. Like the 


<filename>LZ.out file, this file contains data for analytical 


purposes. 


133 .654668 
#36.116764 
HO. 300731 
26-518234 
27 .457097 
ie .941331 
39407063 
o.621305 
126.488858 
e4.9091796 
647029736 
ade 859 86 
BOS. 290792 
162.114241 
162.144698 
ie. 164527 
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.904999 
-680501 
EAT bs) ols 
Bye ee 


032046 


2220508 
-441441 
Loge 


673867 
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